INI  CO  CD 


Lambda  ^ 
Amstrad 
Memotech 
IBM  PC 
Piccolo 


lal  li 

1  fil 

TnTTT] 

fj  li 

KVI  1 1 

NATO  COMMANDER 

CBM  Kass:  198.- disk:  278.- 


F-15  STRIKE  EAGLE 

SP:  198.- CBM  Kass:  298.- 
disk:  298.- 


SOLO  FLIGHT 

SP:  198.- CBM  Kass:  298. 
disk:  298. 


CBM  Kass:  198.-  disk:  278,- 


FLAK 

CBM  Kass:  198.- disk:  298,- 


SNOK1E 

CBM  Kass:  198.- disk:  278.- 


STRIP  POKER 

SP:  175,- CBM  Kass  198, 
disk:  278. 


SP:  175,- CBM  Kass:  198. 
disk:  278. 


SP:  175,- CBM  Kass:  198. 
disk:  278. 


ZAXXON 

SP:  175,- CBM  Kass:  198, 
disk:  278,- 


SENTINEL 

CBM  Kass:  198.  disk  278, 


DRELBS 

CBM  Kass:  198.-  disk  278,- 


TWILIGHT 


APS 


NB:  Kun  salg  til  videreforhandler. 
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Man  sian 


DÅtAPDCr 

]& 


MYSTIC  MANSION 

CBM  Kass:  198.-  disk  278.- 


BEACH  HEAD 

SP:  175.- CBM  Kass:  198.- 
disk:  278. 


DALLAS 

CBM  disk:  298. 


BRGCE LEE 

SP:  175,-  CBM  Kass:  198.- 
disk:  298.- 


POOYAN 

CBM  Kass:  198.-  disk:  278.- 


TEXTPRO 

CBM  Kass:  198.- disk:  278.- 


DATAPRO 

CBM  Kass:  198.- disk:  278.- 


SLINKY 

CBM  Kass:  186.-  disk:  278,- 


CAVERNS  OF  KHAFKA 

CBM  Kass:  186,-  disk:  278,- 


AZTEC  CHALLENGE 

CBM  Kass:  186.  disk:  278.- 


O’RILEY’S  MINE 

CBM  Kass:  198.  disk  278.- 


FORBIDDEN  FOREST 

CBM  Kass:  186,-  disk:  278.- 
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Hvis  du  mener,  du  har  et  rig¬ 
tigt  godt  program  til  "Soft 
Special”,  send  da  kassette¬ 
bånd,  disc  og  gerne  listning 
til  redaktionen.  Alle  i  blade 
eller  på  anden  måde  offent¬ 
liggjorte  programmer  præ¬ 
mieres  med  op  til  1 .000  kro¬ 
ner,  skattefrit.  Bånd  mv.  re¬ 
turneres  efter  brug. 

Alle  Indsendte  programmer 
mærkes  med  navn,  adresse 
og  computertype. 

Afsender  garanterer  at  pro¬ 
grammet  er  originalt. 


4  Sæt  larm  på  dine  spil 
6  Simple  Logo  / 

Spectrum 

8  Månelokomotiv  / 

Commodore  64 

9  Uto-Flight  / 

Commodore  64 

10  Tekstbehandling  / 

Piccolo 

12  Guntight  /  Spectrum 

13  Turborace  /  Spectrum 

14  Slimi/ 

Commodore  64 

16  Bricks  /  ZX  81 

16  CPR-check  / 

Spectrum 

17  Gartield  II  /  VIC  20 

18  Det  gamle  hus  / 

Memotech 

2 1  Geometri  / 

Commodore  64. 

22  Geografi  /  ZX  81 

23  Budget  / 

Commodore  64 

24  Mastermind  / 

Commodore  64 

25  Den  kinesiske  mur  / 

Commodore  64 

25  Skærmkoordinater  / 

VIC  20 

26  Cosmic  Killer  / 

Commodore  64 

28  Subflight  /  ZX  81 

29  Juveler  /  Spectrum 


30  Q-Bert/ 

Commodore  64 

32  Super-Bam  / 

Commodore  64 

33  QL  Backup  /  QL 

34  Stroboskop  / 

Commodore  64 

34  Digitalur  / 

Commodore  64 

36  Rundt  på  gulvet  / 

BBC  B 

38  Rendez-Vous  / 

TI  99/4A 

40  Spectrum  økonomi  / 

Spectrum 

42  Spectrum  strenge  / 

Spectrum 

43  Multiaction  /  Lambda 

44  House  Delender  / 

VIC  20 

45  IBM-Days  /  IBM  PC 

46  Kanal  Plus  2  / 

Spectrum 

47  Happy  Days  /  VIC  20 

47  Electric  Marathon  / 

Marathon 

48  Disassembler  / 

Amstrad 

49  VIC -Diagram  /  VIC  20 

50  Cosmic  Changa  / 

Commodore  64 

51  2 1  /  Commodore  64 

52  Snyd  (ikke)  Dem  selv 
i  skat!  /  Spectrum 


■  Computerspil  bliver  først 
rigtig  gode,  når  der  kommer 
lyd  på.  Ville  du  ikke  blive 
dødtrist  til  mode  over  et  luft¬ 
kampspil,  hvor  jagerne  dø¬ 
de  uden  at  ’ 'protestere” .  El¬ 
ler  racerbanen  ligger  hen  i 
tavshed,  som  om  nogen  har 
lagt  en  pude  over  udstød¬ 
ningsrorene? 

Alle  computere  har  lydkana- 
ler  indbygget.  Blot  program¬ 
meres  de  ikke  på  samme 
måde.  Alligevel  tindes  der 
lighedspunkter,  som  vi  kan 
udnytte  i  en  række  småruti- 
ner  til  Commodore  64,  Spec¬ 
trum  og  Texas  TI-99/4A.  Ruti¬ 
nerne  kan  nemt  indbygges 
som  underprogrammer  i  eksi¬ 
sterende  spil  ved  hjælp  at 
GOSUB  kommandoer.  Husk 
blot  at  trykke  RETURN  i  slutnin¬ 
gen  at  hver  lydetlekt  listning. 

Småtips  til 
lydnarkomaner 

Hvis  du  f  ,eks.  vil  lægge  lyd  til 
en  nedstyrtende  flyver,  er  det 
nemmest  at  lave  en  melodi¬ 
følge,  som  går  tra  en  høj  til  en 
lav  tone.  Melodirækken  skal 
køre  så  hurtigt,  at  man  ikke 
hører  de  enkelte  toner,  men 
kun  et  længere  pift.  Dette  gø¬ 
res  nemmest  ved  at  lade 
samtlige  toner  indgå  i  en 
FOR.  NEXT  løkke. 

Gælder  det  om  at  skabe  et  fa¬ 
resignal,  bruger  vi  den  mod¬ 
satte  melodirække.  Så  opnår 
vi  lige  præcis  den  alarmlyd, 
som  kendes  fra  spændings- 
film.  Det  er  en  god  idé  at  lade 
tonerækken  køre  igennem 
en  FOR .  .  .  NEXT  løkke  tre-fire 
gange.  Så  lyder  det  virkelig 
farligt. 

Lyden  af  en  kørende  bil  frem¬ 
bringes  ved  hjælp  af  sus,  der 
køres  via  filtre,  så  vi  til  sidst  op¬ 
når  en  brummelyd.  Hvis  vi 
forvrænger  fire  forskellige  to¬ 
ner  efter  hinanden,  opnår  vi 
lyden  fra  et  gearskifte. 
Selvfølgelig  kan  de  viste  lyd¬ 
effekter  bruges  i  mange  an¬ 
dre  sammenhænge.  F.eks. 
egner  nedstyrtnings-rutinen 
sig  fint  til  kollisioner  o. lign. 


Lydkredsens  basisadresse  er 
54272.  Da  computeren  kun 
accepterer  de  to  første  karak¬ 
terer  i  en  variabel,  forkortede 
vi  variablen  BASIS  til  BA.  HI  er 
tilsvarende  frekvensen  HI- 
byte.  Til  gengæld  kan  vi  godt 
undvære  LO-byte. 

REM  Nedstyrt 
10  BASIS  =  54272 
20  POKE  BA  +  24, 15 
30  POKE  BA +  6,  15*16 
40  FOR  HI  =  80  TO 
10  STEP -1 
50  POKE  BA  +  1,  HI 
60  POKE  BA  +  4,17 
70  FOR  X  =  0  TO  10: 

NEXT  X 
80  NEXT  HI 
90  POKE  BA  +  24,0 
I  linie  20  fremkommer  den 
højeste  lydstyrke .  1 5  *  1 6  i  linie 
30  sørger  for  en  varig  tone.  I 
linie  40  fastsættes  frekvenser¬ 
ne.  Med  17  i  linie  60  opstår 
en  trekant,  som  kan  erstattes 
med  værdien  33.  FOR.  .  . 
NEXT  sløjfen  i  linie  70  sikrer 
den  nødvendige  tidsforskyd¬ 
ning. 

REM  Pointtab 

10  BASIS  =  54272 :Tone  =  15 
20  FOR  HI  =  60  TO 
48  STEP  -2 

30  POKE  BA  +  24,  TONE 
40  POKE  BA  +  6,  15*16 
50  POKE  BA  +  1  ,HI 
60  POKE  BA  +  4,17 
70  FOR  X  =  0  TO  100: 

NEXT  X 

80  TONE  =  TONE- 1 
90  NEXT  HI 
100  BA +  24,0 

Programmet  minder  om  det 
forrige,  blot  reduceres  lydstyr¬ 
ken  for  hvert  gennemløb. 


REM  Alarm 
10  BASIS  =  54272 
20  FOR  Y  =  1  TO  5 
30  TONE  =  10 
40  FOR  HI  =  70  TO 
100  STEP  2 

50  POKE  BA  +  24,  TONE 
60  POKE  BA +  6,  15*16 
70  POKE  BA+l.HI 
80  POKE  BA +  4,33 
90  TONE  =  TONE +1 
100  IF  TONE  14  THEN 
TONE  =15 
110  NEXT  HI 
120  NEXT  Y 
130  POKE  BA +  24,0 
Forskellen  til  "nedstyrt"  ligger 
i,  at  lyden  hæves  i  nivea  fra 
1 0  til  1 5.  Med  Y  =  1  TO  5  sikrer 
vi,  at  alarmen  gennemkøres 
fem  gange.  Linie  100  er  nød¬ 
vendig  fordi  enhver  lydstyr¬ 
keværdi  over  1 5  afstedkom¬ 
mer  en  fejlmelding. 


4  SOFT  Special 


Lydeffekter 
til  Spectrum 


Lydeffekter  til 
Texas  TI-99/4A 


REM  Nedstyrt 
10  FOR  X  =  24  TO 
12  STEP  -0.1 
20  BEEP  0. 01, x 
30NEXTX 

Afspillehastigheden  i  linie  20 
kan  ændres  efter  behov. 

REM  Alarm 
10  FOR  y  =  0  TO  2 
20  FOR  x  =  0  TO  12 
30  BEEP  0.02,x 
40  NEXT  x 
50  NEXT  y 

En  hel  toneskala  afspilles  i 
halvtoneskridt.  Tidskonstan¬ 
ten  0.02  kan  igen  ændres  ef¬ 
ter  behov.  Ved  hjælp  af  FOR 
.  .  .  NEXT  sløjferne  i  linie  10  og 
50  gentages  forløbet  3  gange . 
REM  Pointtab 
10  FOR  Xr  12  TO  1  STEP  -1 
20  BEEP  0.05.x 
30  NEXT  x 

Værdierne  X=  12  TO  1  frem¬ 
kommer  toneskalaens  C  til 
Cis,  afspillet  baglæns. 

REM  Sejrsmelodi 
10  FOR  y  =  0  TO  4 
20  READ  v.t 
30  BEEP  v.t 
40  NEXT  y 

50  DATA  0. 1 ,7,0. 1 ,4,0. 1 ,4 
60  DATA  0.5, 9, 0.6, 7 

I  denne  listning  gennemspil¬ 
les  en  lille  melodi  bestående 
af  tonerne  G.E.F  og  A.  Forkor¬ 
telsen  v,t  står  for  "varig  tone". 


På  Texas-computeren  kaldes 
tonerne  frem  ved  deres  fre¬ 
kvenser.  Bemærk  i  det  føl¬ 
gende  program  linie  10,  hvor 
frekvenserne  fra  550  til  250  Hz 
afspilles  med  50Hz  spring. 
Med  CALL  SOUND  afspilles  to¬ 
nen  X  med  lydstyrken  0  og 
varigheden  1. 

REM  Pointtab 
10  FOT  X  =  550  TO 
250  STEP  -50 
20  CALL  SOUND  (1  ,X,0) 

30  NEXT  X 

Eller  i  en  anden  version: 
10  CALL  SOUND 

(100,220,0) 

20  CALL  SOUND 

(100,175,0) 

30  CALL  SOUND  (200,-3,0) 

I  det  følgende  "alarm"  pro¬ 
gram  bruger  vi  ret  høje  fre¬ 
kvenser.  Med  værdien 
-1000  i  linie  30  opnår  vi,  at 
tonerne  lires  hurtigt  af.  Med 
-1  tilføjer  vi  en  periodevis  su¬ 
sen,  så  hele  lydeffekten  får  et 
mere  farligt  præg. 

REM  Alarm 
10  FOR  Y  =  1  TO  3 
20  FOT  X=  1500  TO 
2500  STEP  250 
30  CALL  SOUND 

(-1000, X,0, -1,0) 

40  NEXT  X 
50  NEXT  Y 

Vi  har  også  en  sejrsmelodi 
parat  til  Texas-computeren: 

REM  Sejrsmelodi 
10  CALL  SOUND 
(100,392,0) 

30  CALL  SOUND 

(100,392,0,330,0) 

40  CALL  SOUND 

(200,440,0,392,0) 

50  CALL  SOUND 

(200, 392,0, 330, 0).D 

Christian  Jensen 
^  og  Leit  Bombeig 


Simple  Logo  er  en  (langsom) 
BASIC  version  af  sproget  LO¬ 
GO,  men  kan  udmærket  bru¬ 
ges  til  at  lære  LOGO  med.  De 
torskellige  kommandoer  (19 
ialt)  ligger  i  ordforrådet  fra 
starten,  og  det  er  muligt  at  læ¬ 
re  datamaten  nye  komman¬ 
doer.  Paranteser  er  valglrie. 
Trykkes  (ENTER)  i  komman- 
dotasen  vises  alle  nylærte 
ord. 


Simple  Logo 


10  REM  SIMPLE  LOGO  CC)  MAZ  SPORK  23.09.83  ✓✓ 

20  CLEAR  39299 

30  LET  TEGN-1-  LET  WORD-0'  LET  PROG-0 -  DIM  WSC  32, 32, 16)  DIM  QSC  32, 16) 

40  LET  CALL-0  DIM  CC32,4)'  LET  MX—  1=  LET  MT— 1 

30  DIM  SSC16)«  LET  X-128  LET  Y-88 '  LET  DG-0 •  DIM  CSC  16)'  DIM  BSC  16) 

60  RESTORE  1060  POKE  23638,8  POKE  23362, 1*  POKE  23609,16 
70  FOR  F »59300  TO  39323-  READ  A -  POKE  F, A -  NEXT  F 
80  CLS  ■  LET  PUT-39312'  LET  GET-39300 -  LET  L-USR  PUT 
90  GO  SUB  2 70 

100  INPUT  ">"j  LINE  AS  IF  AS-""  THEN  GO  TO  280 

110  LET  CS-AS  LET  ERR»0 1  GO  SUB  120'  GO  TO  100 

120  RESTORE  1020  LET  LINE-Ø  FOR  F»1  TO  19  READ  ES,E 

130  IF  CSC  TO  LEN  ES  )-ES  THEN  LET  LINE»E 1  LET  F*20 

140  NEXT  F-  IF  CALL-0  AND  LINE<0  THEN  LET  ERR-1 -  RETURN 

130  IF  LINE<0  THEN  RETURN 

160  IF  L I NE >0  THEN  GO  SUB  LINE  GO  TO  200 

170  LET  G»0 1  FOR  F-l  TO  WORD  IF  CS-QSCF)  THEN  LET  G-F «  LET  F-WORD 

180  NEXT  F«  IF  G-0  THEN  LET  ERR»2 1  GO  TO  200 

190  LET  PROG-G  GO  SUB  0920  RETURN 

200  IF  ERR»1  THEN  PRINT  40j"l  lkk»  h«r,  01“ 

210  IF  ERR»2  THEN  PRINT  40;"2  Udsfitwrst  ord,  01" 

220  IF  ERR-3  THEN  PRINT  #ØJ  '*3  Int#t  ProSrim,  01" 

230  IF  ERR-4  THEN  PRINT  #0i"4  Snor  ikke  **t,  0>1" 

240  IF  ERR-3  THEN  PRINT  40;  "5  Er  ctofln#r«t,  01" 

230  IF  ERR>0  THEN  PAUSE  10-  PAUSE  0 

260  LET  ERR-Ø-  RETURN 

270  POKE  23677, X 1  POKE  23678, Y-  RETURN 

280  CLS  '  FOR  F-l  TO  WORD-  PRINT  QSCF)  =  NEXT  F :  GO  TO  100 
290  FOR  F-l  TO  WORD 

300  GO  SUS  270  LET  L-USR  GET  >  LET  FD-VRL  CSC  3  TO  ) 

310  LET  DX-INT  CFDSCSIN  < DG*C Pl/180  ) )  >40. 3 ) 

320  LET  DY-INT  CFD*<COS  C DG*< PI/180  ))  )+0. 5 ) 

330  LET  X-X+DX  =  LET  Y-Y+DY !  IF  TEGN  THEN  DRAW  DX, DY 

340  GO  SUS  270  LET  L-USR  PUT-  RETURN 

330  GO  8UB  270-  LET  L-USR  GET-  LET  FD-VAL  CSC  4  TO  ) 

360  LET  DX— INT  CFDSCSIN  C  DG*C  PI/180  >  )  HØ.  3  ) 

370  LET  DY— INT  CFDSCCOB  C DG*C  PI/180  )  )  )+0. 3  ) 

380  LET  X-X+DX '  LET  Y-Y+DY -  IF  TEGN  THEN  DRAW  DX,DY 

390  GO  SUB  270  LET  L-USR  PUT-  RETURN 

400  LET  TEGN-0 -  RETURN 

410  LET  TEGN-1 -  RETURN 

420  LET  DG-0 -  RETURN 

430  LET  X-128 -  LET  Y-88-  LET  DG-0'  LET  TEGN-1-  LET  MX— 1  -  LET  MY—  1  >  CLS 

440  LET  L-USR  PUT-  RETURN 

430  IF  WORD-0  THEN  LET  ERR-3'  RETURN 

460  INPUT  ">";  LINE  C*-  LET  G-0-  FOR  F-i  TO  WORD 

470  IF  QSCF)-CS  THEN  LET  G-F-  LET  F-WORD 

480  NEXT  F.  IF  G-0  THEN  LET  ERR-2 1  RETURN 

490  CLS  '  LET  LEV-1 •  LET  F-l-  PRINT  DSC  C) 

300  PRINT  SSC  TO  LEV )j  WSC G,F ) 

310  IF  Wl( G, F ,  TO  6)- "GENTAG"  THEN  LET  LEV-LEV+1 

320  IF  WSCG,F+1,  TO  6 )■'' HERTIL"  OR  WSCG,F+1,  TO  4)«“8LUT"  THEN  LET  LEV-LEV-1 
530  IF  F/20-INT  CF/20)  THEN  INPUT  "TAST  < ENTER)  "i  LINE  AS'  CLS 
340  IF  WS<  G , F ,  TO  4)-" SLUT"  THEN  RETURN 


330  LET  F-F+l •  GO  TO  0300 

360  LET  DG-DG+VAL  CS< 6  TO  )-360<C DG+VAL  CS< 6  TO  )>339)'  RETURN 
370  LET  DG-DG-VAL  CS<  8  TO  )+360*C DG-VAL  CSC  8  TO  )<0)=  RETURN 
580  LET  MX-X'  LET  MY-Y  RETURN 

390  LET  L-USR  GET-  IF  MX— 1  THEN  LET  ERR-4'  RETURN 

600  IF  TEGN  THEN  PLOT  MX,MY 1  DRAW  X-PEEK  23677,Y-PEEK  23678'  LET  L-USR  PUT 

610  GO  SUB  270'  RETURN 

620  LET  L-USR  GET -  RETURN 

630  LET  L-USR  GET'  COPY  -  RETURN 

640  LET  X-128'  LET  Y-88'  GO  SUB  270'  LET  TEGN-1'  LET  MX—  1-  LET  MY— 1 
630  DIM  C<  32, 4 ) '  LET  CALL-0  DIM  WSC 32, 32, 16  ) -  DIM  QS<32,16)'  LET  PROG-0 
660  LET  DG-0'  INPUT  " T APE/M I CRODR I VE?  "i  LINE  CS  IF  CSC  1  )-"M"  THEN  GO  TO  0690 
670  LOAD  "LOGO. OBJ"  DATA  WSC  >'  LOAD  "LOGO. TXT"  DATA  QSC  ) 

680  DIM  PCI)'  LOAD  "LOGO. TXT"  DATA  PC)  LET  WORD-PC1)-  CLS  <  RETURN 
690  LOAD  *"M"; 1; "LOGOl.D"  DATA  WSC)  LOAD  *"M" i  1  i "L0G02. D"  DATA  QSC) 

700  DIM  PCI)'  LOAD  *"M"  i  i  i  "L0G03.  D“  DATA  PC)'  LET  WORD-PC1)'  CLS  '  RETURN 
710  INPUT  "TAPE/M I CRODR I VE?  "j  LINE  CS 
720  IF  CSC  1  )-"M"  THEN  GO  TO  0730 

730  SAVE  "LOGO. OBJ"  DATA  WSC)-  SAVE  "LOGO. TXT"  DATA  QSC)«  DIM  PC  1 ) 

740  LET  PCD-WORD  SAVE  "LOGO.HEX"  DATA  PC)'  RETURN 

730  SAVE  *"M"; 1; "LOGOl.D"  DATA  WSC)'  SAVE  *"M"; 1; "L0G02.D"  DATA  QSC)'  DIM  PCI) 

760  LET  PCD-WORD  SAVE  *"M"i  li  "L0G03.D"  DATA  PC)  RETURN 

770  CLS  '  INPUT  ">";  LINE  CS-  FOR  F-l  TO  WORD 

780  IF  CS-QSCF)  THEN  LET  ERR-5  RETURN 

790  NEXT  F  RESTORE  1020  FOR  F-l  TO  19'  READ  DS,D 

800  IF  DS-CSC  TO  LEN  DS)  THEN  LET  ERR-3  RETURN 

810  NEXT  F  LET  WORD-WORD+1-  LET  QSC WORD )-CS-  PRINT  QSC WORD) 

820  LET  LINE-1-  LET  LEV-1 

830  INPUT  ">"i  LINE  CS-  LET  G-0-  FOR  F-l  TO  WORD-1 -  IF  CS-QSCF)  THEN  LET  G-l 
840  NEXT  F'  RESTORE  1020'  FOR  F-l  TO  19'  READ  DS,D 
850  IF  DS-CSC  TO  LEN  DS)  THEN  LET  G-l 

860  NEXT  F  IF  G-0  THEN  LET  ERR-2'  GO  SUB  200'  GO  TO  0830 

870  IF  CSC  TO  4  )-"SLUT"  OR  CSC  TO  6)-"HERTIL"  THEN  LET  LEV-LEV-1 

880  PRINT  SSC  TO  LEV);CS  LET  WSC WORD , L I NE )®CS -  LET  LlNE-LINE+1 

890  IF  CSC  TO  6 )-"GENTAG"  THEN  LET  LEV-LEV+1 

900  IF  CSC  TO  4  )»"SLUT"  THEN  RETURN 

910  GO  TO  0830 

920  LET  CALL-CALL+1 :  LET  Z-ø  LET  LC-Ø«  LET  LOOP-0 
930  LET  LOOP-LOOP+1  LET  CS- WSC PROG, LOOP ) 

940  LET  CC  CALL , 1  )»LOOP «  LET  CC  CALL , 2 )»PRQG  LET  CC  CALL , 3 )*Z  LET  CC  C ALL , 4 )-LC 
950  GO  SUB  120 

960  LET  LOOP-CC CALL ,  1  ) -  LET  PR0G«CCCALL,2)'  LET  Z»CCCALL,3)'  LET  LC-CCCALL,4) 
970  IF  LINE— 1  THEN  LET  Z*LOOP=  LET  LC-VAL  CSC  7  TO  )-l '  GO  TO  0930 
980  IF  LINE— 2  AND  LC-0  THEN  LET  Z-Ø'  GO  TO  0930 
990  IF  LINE— 2  AND  LC>0  THEN  LET  LC-LC-1  -  LET  LOOP-Z  GO  TO  0930 
1000  IF  LINE— 3  THEN  LET  CALL-CALL-1  LET  LINE-0  RETURN 
1010  GO  TO  0930 

1020  DATA  "KOPI " , 0630, "FREM" , 0300 , "BAK" , 0330, "FLYV" , 0400 

1 030  DATA  "  HENT  ,  0640 ,  "  GEM  " ,  07 1 0 ,  "  HUSK  " ,  0770 ,  "  GENTAG  " ,  - 1 ,  "  HERT  I L  ",  -2 ,"  SLUT  ",  -3 
1040  DATA  " KRAVL ",0410," NORD ",0420, "RENS", 0430, "LIST" . 0450 , " HØJRE " , 0560 
1050  DATA  "VENSTRE" , 0570, "SNOR" , 0580, "STRAM" , 0590, "TEGNING" , 0620 
1060  DATA  33,233,231, 17,0,64, 1,0,24,23?, 176,201 
1070  DATA  33, 0,64, 17, 235, 231, 1,0, 24, 237, 176, 201 
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A.  Foruddefinerede 
instruktioner 
1  FREM 

Kommandoen  FREM(n) 
bruges  til  at  flytte  ' 'Skild¬ 
padden  "(n).  Punkter  eller 
Pixels  i  midlertidig  retning . 

-  Se  BAK(n). 

2.  BAK 

Bruges  som  FREM(n)  til  at 
flytte  skildpadden  n  Pixels 
i  modsat  retning. 

3  FLYV 

FLYV  bevirker,  at  skild¬ 
padden  ikke  sætter  spor, 
når  den  bevæger  sig. 

-  Se  KRAVL. 

4.  KRAVL 

KRAVL  (år  skildpadden  til, 
modsat  FLYV,  at  sætte 
spor  under  flytning. 

5  HENT 

Alle  nulærte  kommando¬ 
er  hentes  ira  bånd  eller 
Microdrive. 

-  Se  GEM. 

6.  GEM 

Gemmer  alle  nye  kom¬ 
mandoer  på  bånd  eller 
Microdrive. 

7.  HUSK 

Dette  er  kommandoen  til 
at  lære  computeren  en 
ny  kommando.  Skriv 
HUSK  (enter)  VIFTE  (enter). 
Computeren  vil  da  skrive 
navnet  VIFTE  øverst  på 
skærmen.  Dernæst  kan 
skrives  kommandoer  (bå¬ 
de  originale  og  nye)  ind, 
som  bliver  lagret  og  skre¬ 
vet.  Der  sluttes  ai  med 
SLUT.  Tre  kommandoer 
kan  kun  bruges  i  indlæ¬ 
ringsfasen.  De  er:  SLUT, 
GENTAG(n)  og  HERTIL.  Se 
disse. 

8  SLUT 

I  indlæringsiasen  bevir¬ 
ker  SLUT  at  computeren 
returnerer  til  kommando¬ 
fasen. 

9  GENTAG 

GENTAG(n)  vil  gentage 
de  efterfølgende  kom¬ 
mandoer  indtil  HERTIL  in¬ 
struktionen  n  gange.  Be¬ 
mærk  at  GENTAG  kun 
kan  bruges  i  indlærings¬ 
fasen. 

-  Se  HERTIL 
10.  HERTIL 

Hopper  tilbage  til 
GENTAG-kommandoen, 
indtil  dette  er  gjort  de  an¬ 
tal  gange  som  beskrevet 
under  GENTAG.  Derefter 
fortsættes  med  næste 
kommando. 


1 1  NORD 

Får  skildpadden  til  at 
pege  mod  nord  (opad). 

12.  RENS 

Sletter  skærmen,  flytter 
skildpadden  til  midten  af 
skærmen,  fjerner  SNORen 
hvis  den  er  sat  og  udfører 
KR  A  VL-instruktion . 

13.  KOPI 

Kopierer  skærmbilledet  til 
ZX  PRINTER. 

13.  TEGNING 

Viser  tegningen. 

15.  SNOR 

Får  skildpadden  til  at 
hamre  et  søm  i,  hvor  den 
står,  for  dernæst  at  binde 
en  snor  om  sømmet. 

-Se  STRAM. 

16.  STRAM 

Får  skildpadden  til  at 
stramme  snoren.  Dette 
bevirker,  at  en  streng  bli¬ 
ver  tegnet  mellem  søm¬ 
met  (skildpaddens  place¬ 
ring  ved  SNOR-instruktio- 
nen)  og  den  nuværende 
placering.  Snoren  sidder 
stadig  på  sømmet. 

17.  LIST 

Skriv  LIST  (enter)  og  så 
navnet  på  en  nylært  in¬ 
struktion.  Den  vil  da  blive 
udskrevet  på  skærmen. 

18  HØJRE 

(Skrives  HØJRE  med  ø'et 
som  et  nul!).  HØJRE(n)  får 
skildpadden  til  at  dreje  n 
grader  mod  højre. 

-Se  VENSTRE. 

19  VENSTRE 

VENSTRE(n)  får  skildpad¬ 
den  til  at  dreje  n  grader 
mod  venstre. 


S' s 

Skærmbilleder 

Her  er  nogle  billeder  fra  SIMP¬ 
LE  LOGO: 


B.  Fejlkoder 

Nr.  Fejltekst 

Forklaring 

D.  Indtastning  ai  et 
nyt  ord 

1 .  Ikke  her. 

En  af  instruktionerne  GENTAG,  HERTIL  el¬ 

Vi  vil  lære  maskinen  det 

ler  SLUT  er  blevet  udført  i  normal  kom- 

ovenstående  ord  VIFTE.  Skriv 

mandofase. 

følgende:  (efter  hver  linie 

2.  Udefineret  ord. 

Kommandoen  er  ikke  defineret. 

trykkes  ENTER!). 

3.  Lager  tomt. 

Der  er  forsøgt  LIST  i  et  tomt  lager. 

HUSK 

4.  Snor  ikke  sat. 

Kommandoen  STRAM  er  udført  uden 

VIFTE 

først  at  have  udført  SNOR  eller  måske  er 

RENS 

RENS  udført  i  mellemtiden. 

SNOR 

5.  Er  defineret. 

Navnet  findes  i  forvejen. 

GENTAG  10 

FLYV 

C.  Programeksempler 

FREM  16 

VIFTE 

FIRKANT 

BLOMST 

HØJRE  360/10 

RENS 

GENTAG(4) 

RENS 

KRAVL 

RENS 

FREM(40) 

GENTAG(  1 3) 

STRAM 

GENTAG(10) 

HØJRE(90) 

FIRKANT 

HERTE, 

FLYV 

HERTIL 

HØJRE(360/13) 

SLUT 

FREM(16) 

SLUT 

HERTE, 

Nu  har  maskinen  lært  ordet 

HØ  JRE(360/ 1 3) 

SLUT 

VIFTE.  Prøv  at  skrive! 

KRAVL 

VIFTE. 

STRAM 

HERTIL 

SLUT 
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Månelokomotiv 


Det  lyder  noget  science- 
fiction-agtig,  og  det  er  det  og¬ 
så.  Kunne  du  tænke  dig  at 
være  lokomotivfører  på  Må¬ 
nen,  den  dag  Tjæreborg,  Spi- 
es  og  DSB  tår  lagt  en  jernbane 
på  tværs  at  trabanten? 

1  dette  Commodore  64  spil  tår 
du  lejlighed  til  at  lege  loko¬ 
motivfører.  og  arbejdet  er 
mindst  lige  så  krævende  og 
farligt  som  i  de  gode  gamle 
Western-dage  med  overfald 
og  indianerangreb. 

På  Månen  er  det  blot  UFO 'er 
og  miner,  som  volder  dig  be¬ 
svær.  Nogle  torsvarsmulighe¬ 
der  har  du  dog.  Du  kan  hop¬ 
pe  med  H-tasten  og  skyde 
fjender  ned  med  SPACE. 

Kurt  Andersen 

2  G0T03000 


S  LV-54296 : LU-54276 : LF-54272 : HF=54273 : H3-54277 : S3-54278 : PH-54275 : PL-54274  P0«0 
20  V"5324S : SP* 1 033 : L* 1 25 : L I =53 : TR= 1  n=100N-150  BP-3000 


940  P0KEV+0,X:P0KEV+1, 175 
950  P0*P0»100  30T0853 

1000  PRINT  røcanHinmMir  :i  wj  prøve  igen  <j/n>" 


30  POKEV+40 , 1 : P0KEV+39 , 7 • P0KE650 -  235 

40  P0KE2040, 13  P0KE2041 , 13  =  P0KE2042, 1 1 ■ P0KE2043, 1 1 :  G0SUB4000 
30  F0RR-ØT062 ■ RERDB : P0KE832+R,  B : NEXT 
60  F0RA-ØT062  =  RERDB  :  P0KE960+R, B  =  NEXT 
70  F0RR-ØT062  =  RERDB : P0KE704+R, B • NEXT 
80  POKEV+23,  3 ; POKEV+29, 3 

90  DRTR8, 147, 100, 17,37, 100,34,73, 100,68, 149, 100 

91  DRTR137,43, 100, 244, 103, 100, 34, 73, 100, 244, 103, 100, 68, 149, 100, 244, 103, 100 

92  DRTR68, 149, 100,34, 73, 100, 17, 37, 100, 8, 147, 100,-1 

100  DflTflØ, 0,0, 0,0, 0,0, 0,0, 3, 0,0, 3, 0,0, 3, 0,16, 3, 0,36, 3, 34, 36, 3, 119, 124, 11, 235, 253 
110  DRTR31 , 233, 255,31 , 83 

120  DRTR47, 31, 235, 63, 63, 253, 233, 97, 223, 223, 204, 204, 204, 30, 30, 30, 39, 39, 39, 33, 33 
130  DRTR33, 30, 30,30, 12, 12, 12 

140  DRTR2, 0,0, 1,0, 0,2, 0,0, 1,0, 0,2, 0,0, 1,0, 0,2, 0,0, 1,0, 0,2, 0,0, 1,0,0, 2, 0,0, 1,0,0 

150  DRTR2, 0,0, 1,0, 0,2, 0,0, 1,0, 0,2, 0,0, 1,0, 0,2, 0,0, 1,0, 0,2, 0,0 

160  DRTRØ, 4, 128, 0,3, 0,0, 10, 0,0, 12, 0,0, 24, 0,0, 24, 0,0, 233, 0,3, 233, 192, 6, 102, 96 

1 70  DRTR30 , 1 02 , 1 20 , 233 , 235 , 233 , 233 , 233 , 235 , 63 , 1 26 , 232 , 3 1 , 1 29 , 248 , 1 3 , 233 , 240 , 7 

180  DRTR233, 224, 3, 233, 192, 0,233, 0,0, 219, ø,l, 133, 128, 1,133, 128 

430  PR  I WT "  JWWItlfTRYK  SPACE  FOR  START" 

440  GETA*  IFR*C"  "THEN440 
430  G0SUB4000 
4«  PDTMTHT 

460  POKEV+3 1 , 0  =  POKEV+2 1 , 1 3 

470  X-200 : V- 1 73  POKEV+0 , X : P0KEV+ 1 , V  =  POKEV+3 , 60 : POKEV+7 , 60 

473  PRlNT"<CQgiaiDICWII)Clt^^  SCO.  =  0  POINTS  0  LIV  3" 

476  PRINT " IC*DOC*I»t*IIlJO<I)®CC*DC*DOrøDC<ICCO^  . SCO.  :"JHI 
480  F0RR-ØT039  POKE 1 864+R , 1 60 : NEXT 
490  GETRI 

510  I FRI« " H " THENG0SUB900 

320  I FRI« " B " THEN00SUB700 

330  I FRI« "  N  " THEN00SUB730 

340  I FRI«"  "THENG0SUB800 

360  POKESP, 32  SP«SP+TR  POKESP, 81 

370  I FSP> 1 06 1 THENPOKESP , 32  SP- 1 824 

375  IFPEEKCV+31 >«1THENOOSUB2100 

380  J«J+3 : L«L+3 : IFJ>235THENJ«3 

390  IFL>233THENL«3 

600  P0KEV+4,J  POKEV+6,1 

610  IFM«JTHENP-J: G0SUB1200 

620  IFN-LTHENP-LG0SUB1200 

630  IFJ-130RNDL-130THENL-0 

690  00T0490 

700  X-X-7 

710  IFX<23THENX«23 
720  00T0760 

730  X«X+7 : I FX>233THENX«233 = G0T0760 

760  POKEV+0 ,  X :  P0KEV+ 1 ,  V 

770  RETURN 

800  Q0SUB2200 

803  POKEV+2 , X  POKEV+3 , V-37 

810  POKEV+2 1, 15 

013  F0RC-ØT0200  NEXT 

820  POKEV+2, X: POKEV+3, Y-74 

823  F0RC-ØT0280  NEXT 

830  P0KEV+3,V-111 

83 1  I FX> J- 1 7RNDX< J+ l 3THENM- J  J«0  P0-P0+ 1 00  I FPO-BPTHEN 1 400 
032  IFX>L-17RNDX<L+13THENN«L  L«ø  =  P0-P0+100 

834  POKEV+2 1,15 

035  F0RC-ØT0200-NEXT 

840  POKEV+3, V-148 

045  F0RC-ØT0200  NEXT 

850  POKEV+3, V-37: POKEV+2 1,1 3 

860  IFP0-BPTHEN1400 
870  RETURN 
900  G0SUB2300 
903  P0KEV+ 1,160 

907  IFPEEK<V+31 )«1THENGQSUB2100 
910  F«F-2: IFF<-80THEN930 
9151 FX+F <23TH£NF-0 : X-253 : G0TG940 
920  POKEV+0 , X+F - P0KEV+ 1,160: G0T09 1 0 
930  X-X-80  F«ø 


1010  GETRI  I FRI«" "THEN1010 
1 020  I  FRI«  *'  J "  THENPOKEV+2 1,0:  G0T0430 
1030  I FRI* " N " THENSVS63 1 26 
1040  G0TO1010 
1200  G0SUB2200 
1 203  POKEV+2 , P- 1  POKEV+3 , 8ø 
1210  POKEV+21 , 13 
1220  F0RR-ØT0200  NEXT 
1230  POKEV+3, 117 
1240  F0RR-ØT0200  NEXT 
1230  POKEV+3, 134 

1 260  I  FP>X- 1 3RNDPCX+36THENOOSIJB2 1 00 
1270  POKEV+21, 13 
1290  RETURN 

1300  PRINT I7>"\  / 

1310  PRINT PRINTTflB(17)"-RflMT-" 

1320  PRINT  PRINTTABa7>"/  \" 

1330  F0RR-0T0400 : NEXT 
1340  PRINT "  JrøMCOClfllDQ  TRB(  17)" 

1330  PRINT  PRINTTRBC 17)" 

1360  PRINT  PRINTTRBC 17)" 

1370  POKEV+21, 13  POKESP, 32  6P-1861  POKESP, 81 : POKEV+3 1,0 
1380  LI«LI-1  P0KE1982,LI 
1383  IFLI-48THEN1387 

1386  RETURN 

1387  IFPOHITHENHI-PO 

1390  PO-0  LI«33TR»l: GOTO 1000 

1400  B0«(P0l(LI-48))/2: IFBP«11000THENBP«40000  TR«2 

1 403  I FBP-3000THENBP* 1 1 000 

20 1 0  F0RR-ØT03 : POKEL V , 1 5 : POKELU , 33  POKElS , 1 3  =  POKEHF ,16  POKELF ,47  NEXT 

2020  POKELU, 0- POKELS, 0 

2030  Q«Q+1 :PRINT"H 

2040  IFQ«20THENQ«0 : G0T02030 

2043  00T01410 

2030  P0-B0+P0  L I «33  POKESP , 32  SP« 1 834  G0T0830 

2 1 00  FORA- 1 3T00STEP- 1  POKELV , R : POKELU , 1 29  POKELS ,13: POKEHF , 1 6 : POKELF , 47 : NEXT 
2110  POKELU, 0- POKELS, 0 
2120  00T01300 

2200  FORA-ØTO 1 3 ■ POKELV, 1 3 : POKELU ,129  POKEHF , 4ø : POKELF ,  200 : POKER 3, 1 3 : NEXT 
2220  P0KEU2,0  POKELV, 0 
2230  RETURN 

2300  F0RR-ØT020 : POKELV, 13  POKELU, 33 : POKEHF, 40 : POKELF, 200  P0KER3, 13  NEXT 
2310  POKELU, 0: POKELV,  0 
2320  RETURN 

3000  P0KE5328 1,0: P0KE33280 , 7 
3010  PRINTTJWBWBK/  V  \ 

3020  PRINT "l»ll  I 
3030  PRINT"ltll  I 
3040  PRINT " IMI  I 
3030  PRINT "ItH/ 

3060  PR  I  NT"  BUL/  I  \ 

3070  PRINT "IMI  I 
3080  PRINT"IMMI I 
3090  PRINT-IMMI  I 
3100  PRINT " lltltl  I 
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3110  PRINT  "HrøMMIDU  ER  BLEVET  LOKOMOTIVFØRER  PRR" 

3120  PRINT" HMMHRANEN .  DU  SKVDER  UFO'ERNE  MED" 

3130  PRINT'  UMMEPACE  00  HOPPER  OVER  STENENE  VED" 

314ø  PRINT "HMBMRT  TRVKKE  TRSTcN  H." 

3150  G0T05 

4000  POKELV ,13: P0KER3 , 9  P0KEPH ,15POKEPL,15POKES3,0- REST0RE 

4010  RERDH3  IFH3*-1THENRETURN 

4020  RERDL3RERDD3 

403ø  POKEHF, H3: POKELF, L3; POKELU, 33 

4ø4ø  F0RR*1T0D3: NEXT  POKELU, 32 

4050  X-X+ 1  F0RP-ØT050 : NEXT : G0T040 1 ø 

4ø3l  DRTR8, 147, 100, 17,37, 108,34,73, 100,68, 149, 100 

4032  DR TRI 37, 43, 100,244, 103- 100,34,73, 100,244, 103, 100,68, 149, 100,244, 103, 10 

4033  DRTR68, 149, 100,34,75, 100, 17,37, 100,8, 147, 100,-1, -1,-1 
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UFO-Flight 


Dette  UFO  FLIGHT  program 
minder  meget  om  de  "Cave 
Run",  "Canyon"  og  "Tunnel 
Flight ' ' ,  som  i  sin  tid  blev  frem¬ 
stillet  til  den  gamle  PET-Com- 
modore  og  CBM-4032.  Blot 
har  denne  Commodore-64 
udgave  naturligvis  bdde  tar¬ 
ver,  lyd  og  sprites  (bevægelig 
grafik).  Programmet  er  meget 
flot  og  ligger  helt  pd  højde 
med  dem,  du  kan  købe  tær- 
dige  til  Commodore  64. 

Din  opgave  lyder  på  at  flyve 
UFO 'en  ned  gennem  en  uen¬ 
delig  lang  og  bugtet  tunnel, 
hvor  du  ikke  må  ramme  si¬ 
derne.  Programmet  giver  dig 
5  sværhedsgrader  og  3 
UFO 'er  at  arbejde  med,  så  du 
tår  hænderne  luide,  hvis  du 
vil  slippe  levende  igennem 
tunnellen. 

Programmet  er  bygget  over 
en  randomize  tunktion  og  en 
maskinkode  subrutine,  som 
læser  joystick-signalet  og  flyt¬ 
ter  spriten.  Spillet  er  selvfor¬ 
klarende  og  burde  derfor  ik¬ 
ke  volde  vanskeligheder. 

Peter  Brovil 


1  REM********************************** 

2  REM**  UFO  FLIGHT  **  SEPTEMBER  ** 

3  REM********************************** 

4  REM**  <C>  PETER  BROVIL  ♦  06-429225  *♦ 

5  REM********************************** 

6  REM 

7  PR I NTCHR* <8 >  POKE 13*4096+33,0  POKE 13*4096+32,0  PQKE53269, 0  TU=0  G0SUB1 19 

8  G0T022 

9  SVS< 49400) 

lø  I FPEEK  <  SP+ 1 > <5øTHENP0KESP+ 1 , 5ø 

1 1  I FPEEK  < SP+ 1 >  >23øTHENP0KESP+ 1 , 230 

12  IFPEEK(53248+31 >=1THEN78 

13  IFNOl  THENV=INT (RND<0)*2> 

14  IFV*øTHEMfl$='"*a^l  "+C$+"  GOTO  16 

15  fl$="3 rw  "+c#+"  3 rw- 

16  I F V* 1 ANDP* 1 THENX*X- 1 

17  IFV*ØANDP=øTHENX*X+l 

18  PRINTTAB<X)AS  P*V  N=0  M=M+1 

19  IFX<2THENV*0  N=1  G0T09 

20  I FX>2 1 THENV* 1  N« 1  G0T09 

21  GOTOa 

22  FOR I =87 1 T0895 : POKE I,0: NEXT  FOR I =832T0870  READA  POKE I ,  A  HEXT : SP*53248 

23  P0KE2040, 13 : POKESP+39, 8 ■ POKESP+29,  1 

24  POKESP+32, 0 : POKESP+33, 0 : POKESP+23, ø 

25  DATA192, 56,6, 192, 124,6, 192,254,6, 192, 170,6, 193, 171,6 

26  DATA207, 255,230, 207, 255, 230,255, 85, 254 

27  DAT A255 ,85,254,207,255,230,207,255,230,192,254,6,192,124,6 

28  F0RI=1T0101  READA  P0KE49151+I , A  NEXT 

29  F0RI-704T0766P0KEI, INTCRND<0)*220)  NEXTI 

30  FOR I  =  1  TO 1 9  READA • P0KE49399+ 1 , A  NEXT 

31  F0ROØT015  READB  P0KE6*4096+ 1 +C ,  B :  NEXTC  G0T039 

32  DAT A 1 73 , 0 , 220 , 74 , 1 76 , 3 , 206 , 1 , 208 , 74 , 1 76 , 3 , 238 , 1 , 208 , 74 , 1 76 , 38 , 1 73 

33  DATAØ, 208, 208, 15, 173, 16,208,41,1,204,12,173, 16,  208, 41 , 254, 141 , 16 

34  DATA208, 206, 0,208, 96, 173, 16,208,9,1,162,63.141,16,208,142,0,208,96 

35  DATA74,  176,32,238,0,208,240,28, 173, 16,208,41,1,240,20,169,64,205 

36  DATAØ, 208, 2øe, 13, 173, 16,208,41,254, 162,0,141,16,208, 142,0,208,96 

37  DATA173,  16,208,9,1,141, 16,208,96 

38-DATA32, 0, 192,32,0, 192,32,0, 192,32,0, 192,96,32,0,192,76,5, 193 

39  PRINT'7IMii»I  ai-Ø*  2-ST3-I!  ia^9  I  3*  W  "  :  SP=53248 

40  print-i  ai-ir  i  as- a-j§  ii&i-a  i 

41  PRINT"a-|^1-9  I  a-— 131-11  I  I  " 

42  POKESP , 250 : POKESP+ 1 , 75 : F»0  M=0 : P0KESP+2 1 , 1 

43  PRINT"«« - " 

44  PRINT"!! _ 

45  PRINT" a  TUNNEL  -  BREDDE 


73  I FSS=2THFNC* ■ "  "X*14 

74  IFSS=3THENC*="  "  X«14 

75  IFSS«4THENC$*"  "  X*13 

76  IFSS=5THENC$“"  "  X*13 

77  POKE 198,0: FORT* 1 TOS  P0KE53248+ 3 1 , ø  NEXTT  G0TO9 

78  V*54296  W=54276  A-54277  H=54273  L=54272  P=A- 1 

79  FORO* 1 TO lø  POKESP+39, 2  G0SUB131  POKESP+39, 7  G0SUB1 31  POKESP+39, 14 

80  G0SUB131  NEXTO  POKESP+39, 8  P0KE2040, 11 

81  F0RX*15T00STEP-1  POKEV.X  POKEP,  129  POKEA,  15  P0KEH.40  P0KEL,2øø 

82  FORT* 1 T050  NEXT  POKESP+39, PEEK< 8*4096+ 1 +X> : NEXT  POKESP+23, 1 

83  FORX-15TOØSTEP-1  POKEV.X  POKEP, 129  POKEA, 15P0KEH,40  P0KEL,200 

84  FORT* 1 T050  NEXT  POKESP+39 , PEEK < 8*4096+ 1 +X  >  HEXT 

85  POKEW. 0  POKEA, 0  POKEV-0  P0KE2040, 13  POKESP+23, ø 

86  IFTU=3THEN98 

87  PR  I  NT  "  m*'  P0KESP+ 1,75  POKESP ,  250  POKESP+39 , 8 

88  PRINT" 


39  PRINT":i_ 


Mf*STR$(M)+ 


M 


NEXT  PRINT"  S"M$ 


90  PRINT";ia  DU  ER  I NDT ILVIDERE  NAAET 

91  FORS*  1  TOLEN  C  M#>  PR  I  NT"  UB"  ,  NEXTS  FORS* 1 TOLEN (M$)  :  PRINT"H" 

92  PRINT";! - '* ;  SK*3-TU ; UF*= " 3  UFO  ER" 

93  IFSK*lTHENUF$*"a  UF0T'+CHR$(2ø)+CHR* C20)+CHR* <20>*"*!3S!aD" 

94  PRINT"  3  DU  HAR  "  SK  "II"  UF  $,  "  TILBAGE." 

95  PRINT"mW - 

96  F0R2Z- 1 T07  P0KESP+2 1 ,  ø  = FORXX* 1 T0200  =  NEXTXX : POKESP+2 1 , 1 : FORXX* 1 T0200  NEXT  NEXT 

97  F=0  POKESP+39, 8  G0T062 

98  PR  I  NT  "m"  POKESP+1,75  POKESP,  250  POKESP+39, 8 

99  PRINT"MBraDO— - " 

100  PR  I  NT  "II. 


101  PR  I  NT"  133  DU  NAAEDE  IALT  9 

1 02  PORS*  1  TOLEN  <  M*  >  :  PR  I  NT  "  T_JD" 

103  PRINT" 


,  M*-STR*<M>+"  M  " 

:  NEXTS :  FORS*  l  TOLEN  <  M*  )  PR  I  NT  "  II" 


NEXT  PRINT" a"M# 


104  PR I NT "8  TUNNEL  BREDDE 

105  PRINT”!* - 

106  PRINT" _ " 

lø?  PRINT" 8  ANGIV  VALG  " 

108  PRINT";! _ 

109  PRINT"  21  1  STOP 

110  PRINT" _ 

111  PRINT" 8  2 

112  PRINT";i_ 


RE-RUN  MED  SAMME  TUNNEL  BREDDE 


47 

48 

PRINT" a  1 
PRINT" 

:  MEGET  SMAL  " 

49 

50 

PRINT" 3  2 
PRINT" 

:  SMAL 

51 

52 

PRINT" a  3 
PRINT" 

MIDDEL 

53 

54 

PRINT" a  <1 
PRINT" 

:  BRED 

55 

PRINT" a  5 

MEGET  BRED  - 

NKnii 
1 1 1 1 1 II I 
V  V  II  I  I 
KMIII 
I  I  I  I  I  I  I 


56  PRINT"K1_ 


57  PR I NT "Ha  ANGIV  NUMMER 

58  GETA#  IFAf*" "THEN58 

59  I F VAL (AIK1 ORVRL <  A*  ) >5THEN59 

60  SS* VAL  <  A*  >  POKESP , 1 70  POKESP+ 1 , 58 

61  IFTU-ØTHENG0SUB133 

62  pr  i  nt  "  zjsnmmmtammmsm mtawtmammn 

♦21,1 

63  F0RT=1T015 

64  PRINTTAB<  16) " S  WWIIBMS fim  " 

65  NEXTT -X* 15 

67  IFF=1THEN72 

68  PR  I  NT  "  "I  TTTnTTmagWW 


POKESP+ 1,58: POKESP , 1 7ø  POKESP 


T=T2T3r 


m 


69  PRINT" 3  KNAPPEN 

70  I F- ( <  PEEK <  56320 ) AND 1 6 ) *0 ) THENF* 1  G0T062 

71  G0T070 

72  IFSS*1THENC$*"  "  X-15 


Monomer  tu=tu+i 


113  PRINT" 0  3  =  RE-RUN 

114  GETA#  IFA**" "THEN1 14 

115  IFA**" 1 " THENPR I NT " m " : POKE 13*4096+33,7  =  POKE 1 3*4095+32 ,14  POKESP+2 1 , 0  END 

1 16  IFA*«"2"THENM»0 : TU*0 : F=ø  G0T062 

117  IFA*="3"THENM*0  TU-ø  F=0  G0T039 

118  G0T0114 

119  pr  i  nt  •'  ti aniiaiaMi^^  r d e  by 

120  print" awsw waaaaa  ^ 

121  PRINT" 1MMBWMWI I C I  K 

122  PRINT ■ 1  «T2TSTgrSTW8fSrSTB! ' — '  II 

123  PRINT" WBIWMBWMBrtlll  lx 

124  print" vmmamaaaam  i 

125  pr  i  nt  "  i 

126  PRINT"  WIBBI8HBHHRW8II8I  la  1/  I  I  U  V 

127  PRINT" MBPtllHIBIKI r - 

128  PRINT"OTB1SØI  JOY-STICK  I  CONTROL-PORT  2 

129  PRINT "STSTST3*?1 - J" 

130  F0RW-1T0500: NEXT  RETURN 

131  FORG-lTOløNEXTG: RETURN 

132  DATAØ, ø,ø, ø,2, 2, 5, 5, lø, 10,8,8,7, 15, 15,1 

133  PR  I  NT  "73"  POKESP+1 , 58VPQKESP,  250  POKESP+39, 8 

134  PRINT"««« - 

135  PRINT"*,! _  . 

136  PRINT" a  DU  BEFINDER  DIG  PAA  METER-PUNKT  ø  " 

137  PRINT" _  " 

138  PR I NT "a  DU  HAR  3  UFO 'ER  TIL  RAADIGHED  " 

139  PRINT"røn- - 

140  PRINT"2rø /— s  , — ^  i — %  rrv>  > 

141  PRlNT"1fai  tI  I  I  I  I  I  I  K-' 

142  PRINT"3W' — ’  '  1 — '  w-tuj 

143  PRINT"«! - 

144  F0RT*1T03500  NEXT  RETURN 


1“ 


SOFT  Special  9 


0010  EN ABLE  fejl  0720  WHEN  12 

0020  //  Copyright  (c)  by  Lars  Christensen,  Hillerød.  Version  1.  0730  PRINT  i*;"  Vil  du  slette  al  tekst  pA  skermen  (J/N)  ? 

0030  1  in  i  *20 1*80;  pos:«l;  point :*1  0740  IF  GET*  (5,  1 )  IN  "Jj"  THEN  text*  (point  :po»nt+1999>  ;  pos 


0040  DIM  text*  OF  lin, filnavn*  OF  15, tegn*  OF  l.find*  OF  80, i*  OF  I,  tom*  OF 
0050  text*(l*lin) SCREEN* s •  » « : -CHR* < 1 44) ;  tom* ( 1 1 80) " 

0080  CLOSE 
0070  MARGIN  0 
0080  2 ONE  0 

0090  OPEN  FILE  5, "keyboard",  READ 
0100  REPEAT 

0110  xi-(pos-l)  MOD  80«- 1 ;  yi-(pos-l)  DIV  80«-l 
0120  REPEAT 

0130  IF  pos < 1  OR  pos) 2000  THEN  EXEC  scroll 
0140  PRINT  AT(x,y) ; 

0150  tegn* : -GET* (5, 1 ) ;  okl«"  "  (»tegn*  AND  tegn*(-"A" 

0160  IF  ok  THEN  SCREEN*  < pos « )  « "tegn* ;  posi-pos«-l;  x :-x+l-80* ( x-80> ;  y:«y 

H-l> 

0170  UNTIL  NOT  ok 

0180  CASE  ORD (tegn*)  OF 

0190  WHEN  26 

0200  pos:-pos-80 

0210  WHEN  10 

0220  pos:-pos+80 

0230  WHEN  8 

0240  pos  i* pos- 1 

0250  WHEN  24 

0260  pos:-pos+l 

0270  WHEN  20 

0280  pos  i  ■  pos«- 10 

0290  ..  WHEN  13 

0300  pos:-( (pos-1 )  DIV  80)  *80«-81 

0310  WHEN  30 

0320  SCREEN* (pos: ( (pos- 1 )  DIV  80) *80+80) 

0330  WHEN  31 

0340  SCREEN« (pos  1 2000) l 

0350  WHEN  9 

0360  x : ■  ( ( pos— 1 )  DIV  80«- 1)  *80;  SCREEN*  < pos*  x)  i-"  "+SCREEN*(pos*x) 

0370  WHEN  5 

038f>  x  *  ■  (  ( pos—  1 )  DIV  80+1)  *80;  SCREEN* < post x) : -SCREEN* (pos+1 *( pos (x> « x ) 

0390  WHEN  127 

0400  pos* -pos- 1 

0419  IF  pos ( 1  THEN  EXEC  scroll 

0420  SCREEN* ( pos :)*-"" 

0430  OTHERWISE 
0440  EXEC  special 

0450  ENDCASE 
0460  UNTIL  FALSE 
0470  PROC  special 

0480  text* (point : point+1999) *«SCREEN* 

0490  PRINT  AT (1,1) ;CHR* (30) ; AT (79, 1 ) ;CHR* (27) +CHR* (128) ; 

0500  PRINT  AT(1, 1) ;CHR*<27) ; 

0510  CASE  ORD (tegn*)  OF 

0520  WHEN  27 

0530  PRINT  i*;"  Skal  programmet  stoppes  (j/n)  ?  " ; 

0540  IF  GET* (5, 1 )  IN  "Jj"  THEN  STOP 

0550  WHEN  1 

0560  IF  pos— 1  AND  point-1  THEN 

0570  EXEC  flyt (max) 

0580  ELSE 

0590  EXEC  f lyt  < i > 

0600  ENDIF 

0610  WHEN  28 

0620  IF  pos+point <-lin  THEN 

0630  text* ( pos+point  *lin) :=text*( pos+point -1 < lin) ;  text* (pos* point-1 * ) 

0640  ENDIF 

0650  WHEN  29 

0660  IF  pos+point <«lin  THEN 

0670  text* ( pos+point-1 *  1  in) : -text* (pos+point : 1  in) 

0680  ENDIF 

0690  WHEN  1 9 

0700  PRINT  i*;"  Linie  *  H, (point+pos-1 )  DIV  80+1, 

0710  PRINT  ",  ud  af  ",  lin/80, Tryk  en  tast . " ;GET* (5, 1 > 


80  0750  WHEN  6 

0760  PRINT  i*;"  Find  :  " 

0770  PRINT  f ind*; CHR* (30) 

0780  INPUT  AT (1,2) *  find* 

0790  xt-find*  IN  text* ( pos+point *  1  in) 

0800  IF  x-0  THEN 

0810  PRINT  CHR* (7) ; 

0820  ELSE 

0830  EXEC  f lyt (x+pos+point-1) 

,  0840  ENDIF 

0850  WHEN  23 

0860  PRINT  i*;CHR* ( 12) 

+1*(  0870  MOUNT  1 

0880  DIR 

0890  PRINT 

0900  PRINT  "Write. " 

0910  PRINT  "Indtast  tekstnavn  * 

0920  INPUT  filnavn* 

0930  IF  f i lnavn*  O ""  THEN 

0940  DELETE  filnavn* 

0950  OPEN  FILE  1, filnavn*,  WRITE 

0960  PRINT  FILE  1*  text* ( 1 :max+79) ; 

0970  CLOSE  FILE  1 

0980  ENDIF 

0990  WHEN  1 8 

1000  MOUNT  1 

1010  PRINT  i*; CHR« (12) 

1020  DIR 

1030  PRINT 

1040  PRINT  "Read. " 

1050  PRINT  "Indtast  tekstnavn  * 

1060  INPUT  filnavn* 

1070  OPEN  FILE  1, filnavn*,  READ 

1 080  pos : - 1 ;  po i nt  * - 1 

1090  FOR  x : — 1  TO  lin/80  DO 

11Q0  IF  EOF ( 1 )  THEN 

llfO  text* (x*80-79* 1  in) *-"" ;  xi-lin 

1120  ELSE 

1130  text* ( x*80-79*  x*80) :-GET»( 1, 80) 

1140  ENDIF 

1150  NEXT  x 

1160  CLOSE  FILE  1 

1170  WHEN  16,3 
1180  PRINT  i*; 

1190  offline: -FALSE;  y :-point+ ( (pos-1 )  DIV80)*80;  til:-max+79 

1200  PRINT  "  Printudskriften  afbrydes  med  et  tryk  pA  en  tast." 

1210  SELECT  OUTPUT  "printer" 

1220  IF  NOT  offline  THEN 

1230  IF  tegn*-CHR* ( 16)  THEN 

1240  FOR  x *-y  TO  til  STEP  80  DO 

1250  PRINT  text* (x*x+79) 

1260  IF  KEY* O CHR* (0)  THEN  x«-lin 

1270  IF  (<y-x>  DIV  80-1)  MOD  64-0  THEN 

1280  FOR  til*»l  TO  8  DO  PRINT 

1290  ENDIF 

1300  NEXT  x 

1310  ELSE 

1320  FOR  x : -point  TO  point+1920  STEP  80  DO 

1330  PRINT  text* (x  «  x+79) 

1340  IF  KEY* O CHR* (0)  THEN  xl-lin 

1350  NEXT  x 

1360  ENDIF 

1370  SELECT  OUTPUT  "consol e" 

1380  ELSE 

1390  SELECT  OUTPUT  "consol e" 

1400  PRINT  CHR* (7); 

1410  ENDIF 

1 420  WHEN  25 


10  SOFT  Special 


1430  EXEC  flyt (pos+point -961) 

1440  UHEN  22 

1450  EXEC  flyt (pos+point +959) 

1460  UHEN  2 

1470  PRINT  i*;'*  Hvormartga  liniar  skal  indsattes/ (slettes (-)  )  ?  " 

1480  REPEAT 

1490  bad  input i-FPLSE 

1500  INPUT  AT (49, 1) *  y 

1510  UNTIL  NOT  badinput 

1520  x ("pos+point-l ;  y*-y*00 

1530  IF  y  OO  THEN 

1540  IF  y<0  THEN 

1550  IF  x-y  <1  in  THEN 

1560  taxt*(x«l»n> *«taxt*(x-y» lin) 

1570  ELSE 

1580  PRINT  CHR*(7>; 

1590  ENDIF 

1600  ELSE 

1610  IF  x  <1 ln-80  PND  x+y<lin  THEN 

1620  taxt*(x+yt lin) t"taxt*<x» 1  in) ;  taxt* ( x » x+y-1 ) »■" " 

1630  ELSE 

1640  PRINT  CHR*(7); 

1650  ENDIF 

1660  ENDIF 

1670  ENDIF 

1680  UHEN  4  //  d 

1690  yi-pos+point-1;  x*-((y-l)  DIV80)*80+81 

1700  UHILE  taxt* (y * ) ■"  "  PND  y<x  DO  yi-y+1 

1710  taxt* (x» 1  in) ("taxt* (y « 1  in) ;  po*«"pos+80 

1720  IF  y  <x  THEN  taxt* (y i x-1 ) 

1730  IF  t«xt»(y-lDO"  "  THEN  taxt*  (y i ) 

1740  OTHERUISE 
1750  ENDCPSE 

1 760  SC RE EN* * - 1 ex t * ( po i nt  *  po i nt  + 1 999 ) 

1770  ENDPROC  special 
1780  PROC  scroll 
1790  IF  pos) 2000  THEN 
1800  pos  i -pos -80 

1010  IF  point <lin-1999  THEN 

1820  text* (point  f  point +79) »-SCREEN*;  SCREEN* < 1  i  1920) »-SCREEN* (81 *2000) 

1830  SCREEN*( 1921 >2000) »-text* (pOint+2000> point+2079) ;  point  »-point+80 

1840  ENDIF 

1850  ELSE 
1860  pos » - pos+00 

J070  IF  point) 1  THEN 

1880  point »-point-80;  text* (point +2000 »point +2079) »-SCREEN* ( 1921 *2000) 

1090  SCREEN* (81 »2000) « -SCREEN* ( 1 « 1920) ;  SCREEN* ( 1 1 80) « -text* ( poi nt » point+7 

9) 

1900  ENDIF 

1910  ENDIF 

1920  x  *  — ( pos- 1 >  MOD  80+1;  yi-(pos-l)  DIV  80+1 
1930  ENDPROC  scroll 
1940  PROC  flyt (til) 

1950  IF  til(l  THEN  til»-l 

1960  IF  til) lin  THEN  til»-lin-79 

1970  po i nt « - ( ( t i  1 -880 )  DIV  00)*80+1 

19fifc>  IF  point <1  THEN  point «-i 

1990  IF  point) lin-1999  THEN  point i-l in-1999 

2000  posi-t i 1-point+l 

20 ID  ENDPROC  flyt 

2020  PROC  fejl  HPNDLER 

2Q30  CPSE  ERR  OF 

2040  UHEN  100 

2050  bad  i nput < -TRUE;  f i lnavn*«-"" 

2060  CONTINUE 

2070  WHEN  21 1 
2080  offlinal-»TRUE 

2090  CONTINUE 

2100  UHEN  107,118 
2110  bad  i nput »-TRUE 

2120  CONTINUE 

2130  UHEN  208 
2140  MOUNT  1 

2150  RETRY 

2160  UHEN  214 
2170  PRINT 

2180  IF  filnavn* O ""  THEN  PRINT  "Findes  ikke  !  Tryk  på  en  tast . " ;GET* (5, 1 > 

2190  SCREEN* »-text* (point  *  point +  1999) 

2200  RETURN 

2210  OTHERUISE 

2220  PRINT  CHR* ( 12) ; "Fatal  fejl  opstået.  Programmet  stoppet." 

2230  PRINT  "Fejlen  har  nummer  ", ERR, ", " ; 

2240  IF  ERR) 200  THEN  PRINT  "Diskette  eller  Printer-fejl  ! " 

2250  PRINT  "  og  er  opstået  i  linie  ", SYS(2) , M 

2260  STOP 

2270  CONTINUE 

2280  ENDCPSE 

2290  ENDPROC  fejl 

2300  FUNC  max 

2310  xs-lin-79 

2320  UHILE  text* ( x » x+79) -tom*  PND  x> 1  DO  x!=x-80 
2330  RETURN  x 
2340  ENDFUNC  max 


■  Skriver  du  tit  officielle  bre¬ 
ve?  Laver  du  tit  skriftlige  op¬ 
gaver,  hvor  det  kræves  at  der 
afleveres  maskinskrevet?  Eller 
kan  du  bare  godt  lide  at  dine 
opgaver  bliver  afleveret  på 
en  pæn  måde? 

Så  er  dette  Piccoloprogram 
det  rigtige  til  dig.  med  en 
tekstbehandling  kan  du  på 
en  let  måde  skrive  dine  tek¬ 
ster  med  en  kvalitet,  der  er 
højere  end  den,  man  normalt 
opnår  med  en  skrivemaski¬ 
ne. 

Under  selve  indtastningen 
skriver  du  bare  løs  uden  de 
store  tanker  om.  hvordan  det 
egentlig  kommer  til  at  se  ud. 

Når  det  er  gjort  kan  du  i  ro  og 
mag  sidde  og  rette  på  tek¬ 
sten. 

Du  kan  f.eks.  lave  pæne  af¬ 
snit  og  en  lige  højre  margin. 

Mens  du  på  en  almindelig 
skrivemaskine  brugte  fjumre- 
væske  i  spandevis,  retter  du, 
med  et  tekstbehandlingspro¬ 
gram,  dine  fejl  lige  så  let  som 
du  lavede  dem.  Dette  viste 
program  kan  køre  på  en  PIC¬ 
COLO  med  RcComal80 
(CP/M). 

Som  før  nævnt  skrives  al  tekst 
ved  bare  at  skrive  løs.  Ud 
over  det  kan  alle  PICCO¬ 
LO 'ens  redigeringstaster  an¬ 
vendes.  Det  vil  sige  cursorpi- 
lene,  return,  rubout.  insert, 
delete  samt  clear. 

Desuden  findes  der  en  del 
andre  funktioner,  som  aktive¬ 
res  ved  at  holde  CTRL-tasten 
nede  samtidig  med  at  man 
trykker  på  den  tast  der  væl¬ 
ger  funktionen.  Disse  er  føl¬ 
gende: 

t  sletter  teksten  linien  ud. 
rubout  sletter  teksten  fra  cur¬ 
sorpositionen  og  resten  af 
skærmen. 

A  anbringer  cursoren  aller- 
forrest  i  teksten.  Hvis  den 
allerede  stod  der,  vil  den 
blive  anbragt  tilsidst  i  tek¬ 
sten. 

S  (status)  fortæller  hvilken  li¬ 
nie  cursoren  står  på,  samt 
hvormange  linier  der  er 
ialt. 

F  (find)  bruges  til  at  finde  et 
bestemt  ord.  Man  indtaster 
det  søgte  ord,  og  cursoren 
vil  blive  flyttet  til  den  første 
forekomst  af  ordet.  Hvis  det 
ikke  findes  får  man  et 
beep  i  stedet  for. 

Lars  Christensen 


W(write)  gemmer  teksten  på 
disketten  til  senere  brug. 
Man  skal  bare  indtaste 
det  ønskede  navn. 

R  (read)  læser  en  tekst  fra 
disketten. 

V  flytter  cursoren  12  linier 
længere  frem  i  teksten. 

Y  flytter  den  tilsvarende  til¬ 
bage. 

B  bruges  til  at  indsætte  eller 
slette  hele  linier.  Man  ind¬ 
taster  antallet  af  linier;  po¬ 
sitivt  tal  hvis  man  vil  ind¬ 
sætte,  negativt  hvis  man 
vil  slette. 

P  (printer)  udskriver  teksten 
fra  cursorpositionen  til  slut¬ 
ningen  på  printeren.  Man 
kan  stoppe  udskriften  i  uti¬ 
de  ved  at  trykke  på  en 
tast.  Hvis  printeren  ikke  er 
klar  får  man  et  beep. 

C  (copy)  kopierer  skærmbil¬ 
ledet  over  på  printeren. 

0  indsætter  et  mellemrum  i 
hele  teksten.  (Som  insert). 

Å  sletter  en  karakter  i  hele 
teksten.  (Som  delete). 

D  (del)  deler  en  linie.  Dvs  at 
al  tekst  efter  cursoren  bli¬ 
ver  smidt  ned  på  næste  li¬ 
nie.  Hvis  den  står  midt  i  et 
ord,  vil  der  blive  sat  en 
bindestreg.  Derefter  vil 
cursoren  rykke  en  linie 
ned.  Brugen  af  denne 
funktion  er  en  effektiv  må¬ 
de  at  lave  lige  højremar¬ 
gen  på. 

Endelig  er  der  ESC  der  stopper 
programmet.  Den  spørger 
dog  lige  først. 

Programmet  er,  såvidt  det  nu 
har  været  muligt,  sikret  mod 
fejl.  Men  det  kan  dog  godt 
ske  at  programmet  stopper 
alligevel.  Man  kan  så  prøve 
at  skrive  CON  nogle  gange, 
men  hvis  man  bliver  ved 
med  at  få  den  samme  fejl,  er 
der  ikke  noget  at  gøre.  Tek¬ 
sten  er  tabt.  Hvis  man  får  be¬ 
skeden  'Diskette  fejl'  bør  man 
indsætte  en  anden  diskette. 
CON  virker  iøvrigt  også,  hvis 
man  har  stoppet  programmet 
ved  et  uheld. 

Tilbage  er  så  kun  at  sige  at 
tekstbehandling  er  et  virkeligt 
effektivt  værktøj,  specielt  når 
man  har  sat  sig  ordentlig  ind 
i  det.  Jeg  ved  ihvertfald  med 
mig  selv  at  jeg  nu  kan  skrive 
stile  ind  på  den  halve  tid,  og 
med  et  dobbelt  så  pænt  re¬ 
sultat!  !□ 


SOFT  Special  1 1 


SPEC¬ 

TRUM 


ly 

- — 


X  , 


Gun 

fight 


Her  får  du  din  helt  store  ud¬ 
fordring  i  Gunfight,  hvor  du 
skal  skyde  en  berygtet  bandit 
fra  Mexico. 

Programmet  har  10  svær¬ 
hedsgrader,  og  du  får  svært 
ved  at  skyde  modstanderen  i 
grad  10. 

Indtast  først  program  0  og  run 
det.  Derefter  indtaster  du  pro¬ 
gram  1.  Save  programmet 
med  "GOTO  9998 

Claus  Biock 

1  REr»  pTogram  1 

lø  LET  x=0 1  FOR  n=USR  "a"  TO  USR  "a"  +  l 
67:  READ  o.'  POKE  n.«:  LET  xsx+«  ;  NEXT  n- 
IF  x<> 11652  THEN  PRINT  FLASH  1 J  FEJL  * 
I  DATA"  :  STOP 

20  FOR  n*144  TO  164:  PRINT  CHR*  n ; :  NE 
XT  o:  PRINT  FLASH  1 » » *  TRYK  PAA  EN  TAST 
NAAR  DU  ER  KLART  IL  AT  1 NDTASTE  PROGRAn  2 
"  :  PAUSE  0 :  NEU 

30  DATA  0,16,56,56,56,56,124,0,0,112,2 
48,112,112,32,112,120,116,113,116,88,76, 
68,68, 102 

40  DATA  8,47,47,47,63,32,32,32, 16,244, 
244,244,252,4,4,4,0,3,4,8,8,8,8,8 

50  DATA  0,132,32,16,16,16,16,16,0,252, 
0,0,0,0,0,0,0,14,31,14,14,4,14,30 

60  DATA  46,238,46,26,50,34,34,102,24,2 
4, 126, 126,24,24,24,24,0,0,8,28,28,31,31, 
15 

70  DATA  32,112,112,112,112,240,240,242 
,119,113, 127, 127,126,112,112,112,0,0,0,0 
,0,0, 135,255 

80  DATA  32,112,32,32,32,4,222,254,4,14 
,4,4,4,32,123, 127,0,0,0,0,0,0,225,255 
30  DATA  0,60,90,126,60,36,60,0,0,1,0,0 
,63, 127, 127, 127, 128, 192, 128, 128,254,255, 
255,255 


SØ>REf1  Program  2  GUNFIGHT 
@  1984  Claus  Broch 
in  a*(10,ll):  Din  atløJ:  LET  high  = 

APER  6:  BORDER  6:  CLS 

0  SUB  9e3:  PAPER  6 

ET  t  i  d=250  *•  LET  scb  =0  :  LET  d0db=0: 

kudb=10 

F  scb>high  THEN  lET  hi9h=scb 
17  CLS  :  PRINT  AT  0,0;  INK  2;  PAPER  6; 
INUERSE  iS-TinE«";  INUERSE  0;tid;AT  0,9 
;  INUERSE  .1 J’ HIGH*"  )  INUERSE  øjhigh 
20  FOR  b=19  TO  18+dØdb :  PRINT  AT  0,bJM 
s":  NEXT  b:  PRINT  AT  0,22;  PAPER  2;  INK 
6  ;  "SCORE3" ; :  PRINT  scb 

25  FOR  n=l  TO  INT  (RND*3)+3 
30  LET  kb  =  INT  (RND*12)+2:  LET  ka=lNT  C 
RND*19)+2 

35  PRINT  AT  ka,kb;  INK  4j"lm";AT  ka+1, 
xb ti  ;"o"  :  NEXT  o 

40  FOR  o=l  TO  INT  CRND*3)t3:  LET  kb=IN 
T  (RNO* 1 2) ♦ 17 :  LET  ka=lNT  CRND*19t2):  PR 
INT  AT  ka,kb;  INK  4;,,lm"jAT  k  a  1 1 ,  kb  1 1  ;  "o 
" :  NEXT  o 

110  LET  vo 90*1 NT  (RN0*l9)+2:  LET  9  =  -l  : 
LET  p I a=INT  CRND*19)+2:  LET  plb=lNT  CRND 
*19)+2:  IF  p lb=p la  THEN  GO  TO  110 
111  GO  SUB  200:  PRINT  AT  pla,l;  INK  IJ" 
b” JAT  p l at  1 , 1 J "c " ;AT  plb,30;  INK  21“«" JA 
T  p  Ibt l , 30  j" 

112  PRINT  AT  Pla,l;  "  ;AT  pla+1,1}”  ■’ 
113  LET  t  l  d=t i d- 1 :  PRINT  AT  0,5;tid;"  " 
:  IF  t i d  <=0  OR  dØdb>  =3  THEN  GO  TO  4e3 
115  LET  p la=p lat(p la<p Ib  AND  RNO<z)-(pl 
a>p  l b  AND  RND<z 1 

125  PRINT  AT  pla,l;  INK  l;"b";AT  platl, 
1  J"c" 

127  GO  SUB  200 

130  IF  pla=plbti  ANO  RND<z  OR  pla=plb-2 
AND  RND<z  OR  pla=plb  AND  RND<z  OR  pla=P 
i b - 1  AND  RND<z  THEN  GO  SUB  le3:  IF  retu 
ro*15  THEN  GO  TO  r«turo 
134  PRINT  AT  pib, 30;"  " ;AT  plb  +  1, 30;“  " 
135  LET  p  lb=p  lb+( INKEY**"I"  AND  plb<20) 
•C  INKEY*="0"  AND  p  lb>2) 

139  PRINT  AT  pib, 30;  INK  2;"i";AT  plbtl 

30  J " j " 

140  IF  INKEY**"q"  THEN  GO  SUB  1100:  IF 

return=15  THEN  GO  TO  returo 

145  GO  SUB  200:  GO  TO  112 

200  PRINT  AT  uo 90,  15;'*  "  ;A1  uo90tl,15; 

205  IF  uo9n=20  THEN  LET  9=-l 
210  IF  uo9n=2  THEN  lET  9=1 
215  LET  9090=9090+9 

220  PRINT  AT  uo9o,15;  INK  7 } M  f  9 M »AT  uo9 
0*1,15;  INK  0 ; “de "  :  RETURN 
1000  LET  r#turo*0:  IF  RND>z  THEN  RETURN 

1015  BEEP  .01,0:  BEEP  .001,50:  BEEP  .003 
,0:  BEEP  .003,25:  FOR  a*2  TO  29:  IF  SCRE 
EN*  Cpla+l,a)*""  THEN  GO  TO  1050 
1020  PRINT  AT  p  la  +  l,a;,,h"  :  FOR  x»l  TO  0: 
NEXT  x:  PRINT  AT  platl,*;"  " :  NEXT  a 
1025  IF  SCREEN*  Cp la+1 , 30)=""  THEN  GO  T 
O  2e3 

1030  LET  scb=scb+50r  PRINT  AT  ple+i,30;" 
h "  ;  A  T  0, 28  Jscb :  BEEP  .01,50:  PRINT  AT  pi 
at  1,30;"  " :  RETURN 

1050  PRINT  AT  platl, a;"  M:  BEEP  .01,50: 
RETURN 

1  1 00  LET  retur  o  =0 

1110  BEEP  .01,0:  BEEP  .001,50:  BEEP  .003 
.0:  BEEP  .003,25:  FOR  b=29  TO  2  STEP  -1 : 
IF  SCREEN*  CPlb+l.b)**"  THEN  GO  TO  115 


1120  PRINT  AT  p Ib  ti ,b  ;  “h"  :  FOR  x=l  TO  ø: 
NEXT  *:  PRINT  AT  p  lb  +  1 ,b  J “  "  *  NEXl  o 
1125  IF  SCREEN*  (Plb+i, ])-••'  THEN  GO  TO 
3000 

1130  PRINT  AT  Plbtl, l;"hM:  BEEP  .01,50: 
PRINT  AT  plbtl, l;  RETURN 
1150  PRINT  AT  Plb+i, b,  "J  BEEP  .01,50: 
RETURN 

2000  LET  dødo -=dØdb t J  :  PRINT  AT  pib, 30;" 

••  ;AT  p  lb  +  1, 30; 

2010  PRIN1  AT  p l b i  1 , 30 ;  INK  2;  op"jAT  pi 
a , 1 ;  INK  15Mi-;AT  pla+1,0;  INK  7;  f";  IN 
k  1 ; "  j  “ 

2020  FOR  b  =20  TO  plb  +  1  STEP  -1:  GO  SUB  2 
øø:  PRINT  AT  b , 30 ; “tu"  ;AT  b+1,30;  de'  :  P 
AUSE  5:  GO  SUB  200:  PAUSE  5:  PRINT  AT  b, 
30;“  "  ;AT  b+1,30;  "J  OUER  1  ;A1'  pia  +  l, 
0;  INK  7j “I"  :  NEXT  b 

2030  FOR  b  =p  Ib  TO  2  STEP  -1 :  GO  SUB  200: 

PRINT  AT  b , 30  J "tu "  ; AT  b i  1 , 30  ;  de "  :  PAUS 
E  5:  GO  SUB  200:  PAUSE  5:  PRINT  AT  b , 30 J 
•'  "  ;at  bt  1,30;  '  ;AT  plb+l,3l,“k";  Oue 

R  1  ;AT  platl, 0;  INK  7;  I":  NEXT  b 
2040  LET  return=15:  RETURN 
3000  LET  scb=scb*250:  PRJNT  AT  pla,l;M  " 
;AT  p  lat l , l  ;  ”  " 

3010  PRINT  AT  pla+l, 0;  INK  ];"qr";AT  pib 
,30;  INK  2 ;  “b"  ;at  p  ib  +  i , 3ø ;*  c"  ;  INK  7;“9 

3020  FOR  a=20  TO  platl  STEP  -1 :  GO  SUB  2 
00:  PRINT  AT  a , 0  ; " tu "  ;AT  atl.Ø;  de*  :  PAU 
SE  5:  GO  SUB  200:  PAUSE  5:  PRINT  AT  a,ØJ 
"  "JAT  a  1 1 , 0  ;  “  OUER  U  INK  7;AT  pib 
+  1,31  ;"9" J  NEXT  a 

3030  FOR  a  =  * l a  TO  2  STEP  - 1 :  GO  SUB  200 : 
PRINT  AT  a , 0 ; ' tu" ; A T  at l , 0  ;  "de *  :  PAUSE 
5:  GO  SUB  200:  PAUSE  5:  PRINT  AT  a,ø;  “ 
■;AT  at  1,0  i  "  JAT  p  lati  ,  l  ;•  k  ••  ;  OUER  1 J 
INK  7JAT  Plb  +  1, 31  ;“9"  :  NEXT  a 
3040  LET  returo=15:  RETURN 
4000  RESTORE  :  FOR  n  =  l  TO  7:  READ  len,  to 
n,pau:  BEEP  len, ton:  FOR  p=0  TO  pau :  NEX 
T  p:  NEXT  n:  IF  scb>hi9h  1HEN  LET  high= 
scb 

4005  PRINT  AT  Ø.MjhigbjAl  11,11;  PAPER 
7;  FLASH  l;  BR1GHT  1 J "GANE  OUER" 

4010  FOR  n=0  TO  500:  NEXT  n:  GO  TO  6000 
5000  DATA  . 1 , 25, 0,  l en , 15, 0, l en , 5 , 0,  I  en , - 
5,0, len, 5,0, len, 15,0, len, 25, 0 
6øøø  CLS 

6010  FOR  x= 1  TO  10:  IF  scb<a(xl  THEN  NE 
XT  x:  GO  TO  6500 

6020  IF  x  0 1 0  THEN  FOR  .*10  TO  x  +  ]  STEP 
i:  LET  a*( I )=a*( I-IJ  :  LET  aCi)*a(i-l): 
NEXT  i 

6030  INPUT  "Indtast  d ; t  navn  Ja*(x):  L 
ET  a(x)=scb 

6500  CLS  :  PRJNT  AT  0,14;  INUERSE  1  J ** TOP 
-10";  INUERSE  0;AT  2,5;  "Naun  J ;AT  2,20;" 
Score  FOR  k  =  l  TO  10:  PRINT  "  "C  TO 

2-LEN  (STR*  kJ)  ;k ; TAB  5;a*(k);TAB  2ø;“ø 
000" C  TO  4-LEN  (STR*  aCk)J)Ja(k):  NEXT  k 
6510  PRJNT  #l;"Tryk  p aa  en  tast  for  at  s 
pille":  PAUSE  0:  CLS  :  GO  SUB  9490:  GO  T 
O  7 

9000  PRINT  AT  0,10;  INK  2;  PAPER  Sj'INST 
RUKTION" 

9001  PRINT  :  PRINT  INK  1;"  G 

UNFJGHT  "i"]  dette  spil  gaeld 

er  det  om  at  skyde  sin  modstander  inden 

man  bliuer  skudt  af  ham." 

9002  PRINT  INK  2* "Du  styrer  op  med  ’Ø’ 
09  ned  med’L*.  Du  skyder  med  *Q'.  " 

9003  PRINT  INK  3’ "Naar  spillet  starter 
er  du  til  højre  09  skal  saa  skyde  ham  t 
■1  uenstre  inden  han  skyder  di9." 

9004  PRINT  INK  4’"Naar  du  enten  er  bleu 
et  skudt  3  9*n9e  eller  tiden  er  l Øh et  ud 

•stopper  spillet." 

9100  FOR  1=1  TO  lø:  LET  a* ( f J="C I aus  Bro 
ch" i  LET  a C I J  =  1 000 :  NEXT  l 
9490  PRINT  *"lndtast  s  uae r h e ds 9 T od  1-10" 
:  INPUT  z:  IF  z<l  OR  z>10  THEN  BEEP  1,3 
5:  GO  TO  9490 

9500  LET  z=(zt(10-z)/2)/'10:  RETURN 

9998  CLEAR  :  SAUE  "9un fight"  LINE  9999: 
SAUE  ".I  i  9htcode "CODE  USR  "a",168:  UERIFY 

:  UERIFY  "'•CODE  S  STOP 

9999  LOAD  " f i 9ht code "CODE  USR  "a"  :  RUN 


1 2  SOFT  Special 


Turborace 

Spillet  er  et  racerbiispil,  hvor  600  er  der  USR-definerbare  f 
du  skal  styre  en  lille  bil  rundt  karakterer,  hvor  du  så  indta-  I  SPEC* 
på  en  bane.  Du  må  ikke  stø-  ster  bogstavet  i  grafikmode.  |  TRUM 


de  ind  i  kanten,  og  hvis  du 
kører  ind  i  en  isklat,  skrider  du 
ud. 

I  linie  10,  45,  510,  530,  580  og 


Du  bruger  tasterne  6,  7,  8  og  9 
til  at  flytte  bilen. 

Thøger  Lyme 


10  LET  a*  =  " f  acdh I  i e  i  b i  9 " 

20  LET  b *  =  " 3232322 1 2 1 2.1 " 

30  LET  c*="21 1332222123'' 

40  LET  d*  =  "  8  88.39  78.9?  68.76  68.8" 

45  LET  e*="acfhd9eb" 

50  POKE  23624,?:  PAPER  0:  INK  7 
60  CLS 

70  LET  0=0:  GO  SUB  1090 
80  FOR  »=1  TO  8 

90  PRINT  AT  3,8i"8ru9  Tasterne!" 

100  PRINT  AT  at5, 11 ia*Ca) — ";d*Ca*3Ji 
a*Ca*3+l 1 id*Ca*3+23 
110  NEXT  a 

120  PRINT  INK  41  FLASH  HAT  21,16i"a’S 
’  For  start  d" 

130  IF  C00E  INKEY*=115  THEN  CLS  :  GO  T 
0  150 

140  GO  TO  130 
150  LET  t=40 
160  LET  s  =0 
170  LET  x=5 
180  LET  y=15 

190  LET  C=1 :  GO  SUB  200:  GO  SUB  840:  GO 
SUB  800:  GO  TO  260 
200  REST0RE  1000 
220  READ  q 

225  IF  q=ø  THEN  RETURN 
230  IF  q>=100  THEN  LET  c=c+l :  LET  q=q- 
100 

240  PRINT  INK  6;AT  c,q;"@" 

250  GO  TO  220 

260  PRINT  AT  x,y;a*m 

270  LET  c=4:  GO  SUB  280:  GO  TO  320 

280  RESTORE  1200 

290  FOR  d=l  TO  97 

300  LET  a=lNT  CRNDX261+2 

310  READ  b 

315  IF  b> 100  THEN  LET  c=c*l:  LET  b=b-l 
00 

320  IF  b=a  THEN  PRINT  INK  ?;AT  c, bi"* 
330  NEXT  d 

340  LET  f  —  I  NT  CC256-IN  61438V23 
350  IF  f<l  OR  1>12  THEN  GO  TO  430 
355  IF  O?  AND  x<9  THEN  PRINT  AT  x,yia 
$119 :  LET  t=t-l/7:  PRINT  AT  1,1; INT  t i" 
"i  GO  TO  340 


360  PRINT  AT  x,yi."  " 

370  LET  y=y-2+UAL  b*m 
380  LET  x=x-2+UAL  cfCO 
390  IF  SCREEN*  Cx,yl="8"  THEN  GO  TO  50 

0 

400  IF  SCREEN*  Cx,y)="*"  THEN  00  SUB  6 
40 

41ø  PRINT  INK  5 iAT  x,yia*tf) 

420  LET  i=stl/4 
430  LET  t=t-W 

440  IF  x<9  AND  y=14  THEN  LET  f=i*10:  L 
ET  y=15 :  GO  SUB  800:  PRINT  AT  x,y;a*CO 
450  IF  INT  t=0  THEN  PRINT  AT  1 , 11 ; INT 
s  ;AT  1, 1  i  INT  t :  GO  TO  720 
460  PRINT  AT  1,11; INT  s 
470  PRINT  AT  1 , 1  i INT  ti"  " 

480  GO  TO  340 

500  FOR  a=l  TO  5 

510  PRINT  INK  6  i AT  x,yi"c" 

520  BEEP  .1,-25 

530  PRINT  INK  2;AT  x,yi"b" 

540  BEEP  .2,-40 
550  LET  t=t-l 

555  PRINT  AT  1, 1  i INT  t i"  ” 

55?  IF  INT  t  =0  THEN  GO  TO  720 

560  NEXT  a 

570  FOR  a=l  TO  8 

580  PRINT  INK  3  i AT  x,yi"l" 

590  BEEP  .1,-50 

600  PRINT  INK  6  i AT  x , y i " I " 

610  BEEP  .2,-10 
620  NEXT  a 

630  LET  x=5 :  LET  y=15:  PRINT  AT  x,y;a*C 
13:  LET  c  =  1 :  GO  SUB  200:  GO  TO  340 
640  FOR  a=l  TO  8 
650  PRINT  AT  x,yie*Ca3 
660  BEEP  .1,0 
670  NEXT  a 

675  PRINT  AT  x,yi"*" 

680  LET  u=INT  URND*2)-1  l»x 
690  LET  r=lNT  C CRND*2)+1 3»y 
695  IF  SCREEN*  Cu,r)="@"  THEN  GO  TO  68 

0 

700  LET  t=t-3 

701  IF  t<=ø  THEN  GO  TO  720 
705  LET  x=u :  LET  y=r 

710  RETURN 


720  FOR  a=l  TO  300:  NEXT  a:  CLS 
730  IF  s>o  THEN  PRINT  AT  5,2i"Du  s I09 
h!9hscooren  med  ";1NT  s-lNT  o 
735  IF  s  <o  THEN  PRINT  AT  5,4;"0u  slog 
Ikke  hl9hscooren  “ 

740  IF  «(!  THEN  LET  o=* 

750  PRINT  AT  8, 5 i"H I 9hscooren  er  nu  "il 
NT  o 

760  PRINT  AT  12, 3 i "U i  l  du  haue  et  nyt  s 

Pli  ?" 

770  IF  CODE  1NKEY*=106  THEN  CLS  :  GO  T 
O  80 

780  IF  CODE  INKEY*=1 10  THEN  STOP 

790  GO  TO  770 

800  FOR  h=4  TO  8 

810  PRINT  AT  h , 1 4 i " I " 

820  NEXT  h 
830  RETURN 

840  PRINT  INK  4i  BRIGHT  1 iAT  0,øi"Time 
" iAT  0, 10;"Sc0Te" iAT  0, 18 i "H I 9hscor e "  i  I 
NK  7 iAT  1,22  i INT  o 
850  RETURN 

1000  DATA  102,3,4,5,6,7,8,9,11,12,13,14, 
15,16, 17,  18, 19,20,21,22,23,24,25,26,27,1 
01,2,5,7,9, 10,11,14,16,18,23,27, 101,27,2 

8. 101.28.29. 101.2.29.30. 102.6.7.8.9.30. 1 
02,6,7,9, 10, 11, 12,21,22,29,30, 101,2,6, 12 
,13,14, 15, 16, 17, 18, 19,20,21,22,23,29,301 
101,6,23,24,30 

1010  DATA  101 ,5, 6, 23, 24, 30, 101 ,6,7, 14, 15 
,  16,  17,  18,23,30,  101  ,‘7, 8,  II,  12, 13,  14,  18,1 
9,20,23,24,30,101,8,9,10,11,20,21,22,23, 
24,25,30,101,2,9,21,30,102,30,102,30,102 

,29,30, 102,3, 14, 15, 16, 17, 18,21,22,23,24, 

25.26.30.103.4.5.6.7.15.18.19.20.21.26.2 
7,28,29,30, 106, 7,8,9, 10, 11, 12, 13, 14, 15,0 
1090  RESTORE  1100 

1100  DATA  24,60,60,24,24,90,126,90,208,2 

24,116,186,29,46,20,8,11,7,46,93,184,180 

,40, 16,90,126,90,26,24,60,60,24 

1110  DATA  0,7,98,255,255,98,7,0,0,224,70 

,255,255,70,224,0,8,20,46,29, 186, 116,224 

,208, 16,40,116, 184,93,46,7,11,32,224, 104 

,116,70,89,40, 16 

1115  FOR  a=ø  TO  72 

1120  READ  b 

1130  POKE  USR  " a " +a , b 

1140  NEXT  a 

1150  RETURN 

1160  DATA  1 

1200  DATA  3,5,7,9,10,11,12,17,  19,20,22,2 

5. 103.4.6.8. 10. 12. 16. 18.21.23.26. 104.8. 1 

2. 17.20.23.25.26.27 

1210  DATA  103,4,5,11,17,24,25,26,28,104, 
5,25,26,27, 104,26,3,4,26,27, 103,26,27,28 
, 102,4,26,27, 104, 103,5,27, 105,6, 14,15, 16 
,27 

1220  DATA  104,9,11,13,16,17,20,25,104,9, 

11.13.14.15.16.17.19.20.25.105.8.12.15.1 

8.21.23.27 
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COMMO 

DOPE 

64 


Slangen  "Slimi"  er  en  fætter 
til  gode  gamle  Pacman.  For 
hver  runde  bliver  den  frygte¬ 
lige  slange  to  led  længere.  Sb 
gælder  det  om  at  se,  hvor 
langt  man  kan  nå,  før  man 
mister  kontrollen.  Spillet  har  3 
sværhedsgrader,  og  der  kan 
enten  benyttes  joysticks  eller 
Commodore  64 's  tastatur. 


SERRCHING  FOR  tf 


1  DIMF<2000)  :  V=53281  :HS=25ø:Wf="  B.R"  U  %-  fjåtffj 

6  S 1  =0  '  S2=ø  ■  S3-0  :  S4=ø  :  S5=0 :  S6=ø  REJ="  "  :  LES=  "  "  \\ 

20  K=ø  :  0=170  PRINT"0"P=P+1  llWrFl  / 

25  L*=LEFT*(U*,4>  iyTgP  Æ  “  ‘ 

26  ON  RO  00SUB  3000,  4000..  5000 

23  pp.nrt"mmtmttammq"spc(3i> ,hs  \[y  Wvar  i 

23  PRINT" aiTOarørørørølrøcrøl'iFrørtii)" SPC  <  35  J  ;  (F-ET  Mf  T YnZf]  M 

30  K=0 : 0*170 : X=ø : GETC$ :  GETC$ :  ON  QT  G0T0400,500  jf  \  CwW  Æ. 

4øø  J=PEEK ( 56320 ?  V  S  ASA 

410  IF(..TRNP1>=ØTHENX=-4Q  I  * 

42ø  IF<JRND2>=*ØTHENX=40  1  5 

430  IF(JRND4>=ØTHENX=-1  % 

440  IF(JRNP8>=ØTHENX=1  \  WÆ10 

450  G0T0600  \  W 

500  GETRt  IFRT="L"THENX=1 

510  IFflT="K."THENX=-l 

520  IFR*="Q"THENX=-4ø 

530  IFR*="R"THENX=4ø 

600  F<0>=F(0-1>+X  IFPEEKU106+F(0>>=102THENK=2 
610  IFPEEKT 1 106+FCO) T =83THENS=S+1 
620  IFPEEKC 1 106+FC0) )=81THENK=2 

700  P0KE1 106+F(0> , 81 : PQKE55378+F CO) , 1 : P0KE1 106+F(0“L>, 96 
71ø  PRINT"SB«WKM"SPC<31>;S 
750  IFK=2THEN9øø 
760  0=0+1 

770  IFRQ=3RNDS=(L/10)*134THENBE=BE+1 : GQSUB30000 : G0T020 
780  I FHQ=2RNDS=(L/10>*1 23 1 HENDE = BE + 1 : G0SUB30000 : GOT020 
790  IFRQ=1RNDS=(L/10>*89THENDE=BE+1 : G0SUB30000 : G0T020 
800  ON  QT  GOTO  400,500 

900  Bfi=54272 ' LR= 1 5 : F0RHJ=60T04øSTEP-2 : POKEBfl+24, LR ' POKEBR+6 ,15*16 

910  POKEBR+1'HJ  POKEBR+4, 17  FORCD=øT01ø : POKEV, CD : NEXTCD 

911  P0KE53280, ø : P0KE53281 , 0 

912  LR=LR-1  NEXTHJ  POKEBR+24,0  POKE'v',6 

920  FORRfl=øTOL  :  POKE 1 1 06+F  <  <  0-L) +RR  ) ,  96 :  NEXTRR :  POKEF  (01  +  1106,102 

930  E=E+1  iPRINT',aH!lBi'«ieirøIimi!IHi!I(rai!l!|IfIS"3PC(351  J  <P-E>  :  IF(P-E>=ØTHEN2000 

935  P0KE55378+FC01, 1 : P0KE532SØ, 0 : P0KE53281 , 0 : PRINT" S" 

940  00T030 

1000  DRTRlø, 20, 30,40,50,60, 70, 30, 90, 100,110, 120, 130, 140, 150, 160, 170 
2000  I FS>HSTHENG0SUB50000 
20 1 0  RESTORE : G0SUB40000 : G0T09 
3000  P0KE53280, ø : P0KE53281 , ø : PRINT" S' 

3005  PRINT" 

3010  PRINT" 

3020  PRINT" 

3030  PRINT" 

3040  PRINT" 

3050  PRINT" 

3060  PRINT" 

3070  PRINT" 

3080  FRI NT" 

3090  PRINT" 

3100  PRINT" 

3110  PRINT" 

3120  PRINT" 

3130  PRINT" 

3140  PRINT" 

3150  PPI NT" 

3160  PRINT" 

3170  PRINT" 

3180  PRINT" 

3190  PRINT" 

3200  PRINT" 

3210  PRINT" 

3220  PRINT" 

3999  RETURN 


4000  PQKE53280, 0 ■ P0KE53281 , ø ' PRINT" 3' 
4005  PRINT" 

4010  PRINT" 

4020  PRINT" 

4030  PRINT" 

4040  PRINT" 

4050  PRINT" 

4060  PRINT" 

4070  PRINT" 

4080  PRINT" 

4090  PRINT" 

41øø  PRINT" 

4110  PRINT" 

4120  PRINT" 

4130  PRINT" 

4140  PRINT" 

4150  PRINT" 

4160  PRINT- 
4170  PRINT" 

4180  PRINT" 

4190  PRINT" 

4200  PRINT" 

4210  PRINT" 

4220  PRINT" 

4999  RETURN 

Søøø  P0KE5328Q, 0 : P0KE53281 , ø ' PR IH' 
5005  PRINT 
5010  PRINT 
5020  PRINT 
5030  PRINT 
5040  PRINT 
5050  PRINT 
5060  PRINT 
5070  PRINT 
5080  PRINT 
5090  PRINT 
5100  PRINT 
5110  PRINT 
5120  PRINT 
5130  PRINT 
5140  PRINT 
5150  PRINT 
5160  PRINT 
5170  PRINT 
5180  PRINT 
5190  PRINT 
5200  PRINT 
5210  PRINT 
5220  PRINT 


$**»***«***W«fil;!l  SCORE 


SH1GHSC0RE 


m  *  *  *  *s*  ******  i  ascoRER' 


3*- ••*•»*  *  *  .*  ?s*  **T*sf 


SHIGHSCORE 


S*  *  m  *  *  •  S*»*  *  *BI  SHIGHSCUREB" 


5230  RETURN 


14  SOFT  Special 


1 øøøø  PR I HT "3"  PRINT "3"  P0KE532SØ , 0 : PØKE5328 1 , 0 
10010  B1*<0>=" SOFTWARE-TEAM " 

10015  B1*<1>=”BV" 

løøSø  B 1 *  <  2  >= “HANS- JUERGEN-HANSEN " 

10030  B1*C3)=”RND" 

løø4ø  B 1 J ( 4 )= “ BERND-RUEHL I CKE " 

10050  BIT (51 “"PRESENTS" 

10060  FØRS1=ØT05 

10070  F0RS2=1T0LEN(B1$(S1 >  > 

løøSø  LE*=LEFT*(B1*<S1) , S2) 

10000  RE*=P I GHTT  <  LET , 1 ) 

10100  S3=RSC(RET1 
løllø  S4=ABS(S3) 

10120  IFS4=45THENS5=45 : GOTO 101 40 

10130  S5=<S4>-64 

10140  F0RS6=ØT04øØSTEP4ø 

10150  POKE 1 034+S2+S6 , S5 : POKE55306+S2+S6 , 1 = POKE 1 034+S2+S6 , 96 
10160  I FS6-400THENP0KE 1 034+S2+S6  .■  S5 
10170  NEXTS6 
10180  NEXTS2 

10182  FORT V=  1 T0700 : NEXTTV  '  PRINT " 71" 

10190  NEXTS1 
10200  PR  I  NT  "71" 

10210  PRINT  SPRINT  PRINT  PRINT 


10220 

PRINT" 

W  W 

a  ■ 

a  ■ 

sr  ▼ 

3  fi" 

10230 

PRINT" 

a  ■ 

a  ■ 

a 

■T^^a 

■" 

10240 

PRINT" 

^a  ^ 

3  B 

a  ■ 

a  ■ 

a  ■ 

3  B" 

10250 

PRINT" 

a  ■ 

a  ■ 

3  ■ 

a  ■ 

a  s 

a 

10260 

PRINT" 

■aa  w 

a  s 

3  S 

a  ■ 

a  ■ 

a  ■" 

10270  PRINT  '  PRINT  :  PRINT :  PRINT  '  PRINT  :  PRINT  :  F0RQ0=ØT0700  :  NEXTOO 

10271  F0RUT=1T020 

10272  F0RTU=1T015 

10273  PQKE53281  .•  TU 

10274  NEXTTIJ 

1 0275  NEXTUT  :  P0KE5328 1 , 0 :  FOR  1 1  =ØT0 1 400  :  NEXT 1 1 

10280  PRINT" a  COPVRIøHT  BV  3S0FTWAREB- SITERMB  1984  " 

10290  PRINT: PRINT 

10300  PRINT"  TRVK  F1  TIL  STRRT  SPIL" 

10310  GETTTT : I FTTT= " “ THEN 1 03 1 0 

10315  IFTTT= " ■"THEN 10320 

10316  IFTTT<>"B"THEN10310 
10320  RETURN 

*  1 5000  PR  I  NT  "73"  :  P0KE53280 , 6 : P0KE53281 ,6  PRINT "  a" 

15010  PRINT" OTHOTsTsTsTsTsT.’’ IL  DU  SPILLE  MED  SJ90VSTIK" 

15020  PRINT"HSTOi7:WimiT2miTiTi»iELLER  MED  3KBEVBORD  ?” 

15030  GETRDT: IFRDT=""THEN15030 
15040  IFRDT=" J"THEN  QT=1 : GOTO 15060 
15050  IFRDT="K"TH£N  04=2:004015070, 

15060  pRim"mmmmwmmm6æé&éfå^roRy  2>  - ; forkp=itoi4ø@ : nextkp ; gotoisi  10 

15070  PRINT " HTOWnHimWiTÆlÆlp- SOS" 

15080  PRINT" gKMSWMWMIMMiTrø jNE  D- 3AB" 

1 5090  PRINT " SWMMBSIHMBrøW^^  W 

15100  PR  I  NT  ".BMMSMMMMMSMMHMMiTiTjTilHø  JRE-  a_B"  :  FORFT =ØT02 1 00 :  NEXTFT 
15110  PRINT "3" : RETURN 
20000  PR  I  NT  ".3" 

20010  P0KE53280 , ø : P0KE5328 1 , ø : PR I NT " 3" 

20020  PR  I  NT:  PR  I  NT 

20030  I  NPUT  “  SVÆRHEDSGRAD  1-3  "  >  AQ 
20070  RETURN 

30000  PR I NT " 7IMMMMNT I LLVKKE  DU  FEARBIGGJORDE  BILLEDE  NR."; DE 
30040  PRINT"*BISWW9ST8KISKKLRR  TIL  NERSTE  RUNDE!" 

30050  F0RH=lT04øøøHEXT 
30090  RETURN 

40000  PR  I  NT  "  73"  :  P0KE53280 . 0  :  P0KE5323 1 ,  ø :  PR  I  NT  "  S" 

40010  PRINT: PRINT: PRINT: PRINT 

4øø2ø  PRINT"  SPILLET  ER  SLUT!!" 

40030  PRINT"MS  DU  FIK  “;S;"  POINTS" 

40040  PR  I  NT  "MS  VIL  DU  PRØVE  IGEN?  >*J"C  ELLER  >SNBC" 

40050  GETVU$: IFVUT=" "THEN40060 

40060  IFVU*="J"THEN40090 

40070  IFVU*="N"THENGOT045000 

40080  I FVUtO  "  JA  "  ORVUfO  "  NEJ  "  THENG0T040050 

40090  I NPUT "  MHBVAERHEDSGRAD " i AQ 

40100  RETURN 

45000  PR  I  NT  "  73"  :  P0KE53280  ..14:  P0KE5328 1 , 6 :  PR  1  HT  "  73" 

45010  PRINT" <WIMMMMMMMMMMM=TiT=T=TiT=TiTiTiTsTiT;i;'K .  SAH  STOPPER  VI!" 

45020  END 

50000  PR  I  NT  "73"  :  P0KE53280 , 6 :  P0KE5328 1 . 6 :  PRINT"  a" 

50002  PRINT" 7SKWKISIBMMSSHERME D  HAR  DU  SLAAET  HIGSCOREN  OG  MAR" 

50004  PR I NT " SI NDTRSTE  DINE  INITIALER *PHA  MAX. 4  BOG-" 

50006  PRINT"S3TAVER. " :F0RGH=lT021øøNEXTGH 
500 17  PR  I  NT  "  73"  :  P0KE53280  .•  6  :  P0KE5328 1 . 6  PP I  NT  "  TI" 

50019  PRINT  PRINT 

50020  PRINT"  / - \  " 

50030  PRINT"  I  SHI6HSC0REB  I  " 

50040  PRINT" - - - '  " 

50050  PRINT ; PR I NT ; HS=S 

50055  F0RRR=1T03 

50060  F0RUU=øT015 

50070  P0KE53280.UU 

50080  NEXTUU  NEXTRR : P0KE53280 . 6 

50090  I NPUT " NAVN : " ; Wf 

50100  PR  INI"  asSSMMMMM« 

50110  PRINT" "STsTstSKKRIB!"  J  U$ ;  ”  ";S 

50 120  PRINT:  RR  i  hi  :  PR  I  NT 

50125  PR  I  NT "  ISTsTSTSTSTSTDU  KOM  TIL  RUNDE  "I<DE+13 
50127  PR I NT: PR I NT: PR I NT 

50130  PRINT"  TRVK  TASTE  TIL  NST  SPIL!" 

50140  GETTVf : IFTV*=" "THEN50140 
50150  RETURN 


SOFT  Special  1 5 


Bricks 


mt 


ii-- i 


•  • :  Æ 


i«  *  • » 


□r 


I  dette  invaders-lignende  spil, 
skal  du  gribe  murstenene  in¬ 
den  de  flyver  forbi,  og  læg¬ 
ger  sig  som  en  mur  under  dig . 
Når  de  har  bygget  muren  helt 
op,  har  du  tabt. 

Du  styrer  til  venstre  med  "5". 
og  til  højre  med  "8".  Efter  ind¬ 
tastningen  SAVE 's  program¬ 
met  med  GOTO  2150,  og  der¬ 
efter  selvstartende.  □ 


S  LET  HP  =  ®  ^ 

3  CLS 

4-  30SUB  3003 

5  GOSUB  1000 

6  LET  PG=0 
10  LET  H  =  ll 
30  DIM  R<£2) 

4-0  LET  P  =  I  NT  <22*RND)  +1 

60  LET  J=P+4 

64-  LET  L$  =  ”«r  _  „ 

65  IF  PNO>.9  TMEN  LET  L*  =  44mu“ 

70  FOR  1*9  TO  19 -R (P) 

©0  PRINT  RT  I J; L$  _ 

61  PRINT  RT  “■  * 

90  LET  H*H+(  C  INKE  v' »*'*©'*  RND  H  < 
23)  *2 ;  -(  ( INKEY  $  =  '  5”  RND  M>3)  *2/ 
115  PRINT  RT  _ 

120  IF  1*15  RND  (  (H4-2)  =3  OR  tH«- 
3) *J)  THEN  GOTO  145 
125  NEXT  I 
130  LET  R  (  P)  *R  (P)  ♦  1 
135  IF  R (P) *5  THEN  GOTO  2000 
140  GOTO  40 

145  LET  P0=P0+1 

146  LET  P$  =  444 

147  IF  L**‘,nl»,,  RND  Pø  <11  THEN  LE 
T  PO*ll 

146  IF  L$  =  “«r“  THEN  LET  PO*PO-ll 

150  LET  OJ^STRI  PO 

151  FOR  N  * 1  TO  LEN  O* 

152  LET  Pt=>p|fCHRt  (GODE  G« (N) + 
126) 

153  NEXT  N  _ 

160  LET  PfsC'ET  RND  PO<10)  tl  SI" 
RND  Pø  <100)  ♦("S*  RND  PØ  <1000)  «-P 

*170  PRINT  RT  4  >  6; P  $ 

130  GOTO  40 

1000  FOR  N  *0  TO  21  _ 


b‘’;RT  N>  30;  44 


1015  NEXT  N 

1016  FOR  N  =0  TO  31 


1020  PRINT  RT  6, N;  RT  7,N:”%” 

;  dt  20 ,  N;  "  V ;  RT  21>N;,*V‘;RT  ø,H; 
•*y  ;RT  1,N;"V 

1030  NEXT  N  ....  ^  _ 

1^40  PRINT  ^gT  ^ 

104-6  PRINT  R  f  4,6,  £2X500  *;  RT  4,21 

"SEE®” 

1050  RETURN 

2010  IF  HP  «■  PO  THEN  LET  HP  =  PO 
20  11  LET  K**"" 

2015  LET  H*=STR*  HP 

2016  LET  H**i"ø44  RND  HP  <  10)  4-  C  **0  “ 
RND  HP<100)  trø"  RND  HP<1000)  4-H 


_  204C 
- f  205 1 

jk 


FOR  N  *  1  TO  LEN  H* 
LET  K$=K$+CHRt  ;C: 

NEXT  N 

PRINT  RT  4,21; Hl _ 

PRINT  RT  12,4,  | ZES 


ODE  Ht(N>  f 


- 1( - •  2375 

r  ø 

,  '  T  20=50 

'  HCT  ø 


IF  INKEY*-  \J*4  THEN  GOTO  210 
IF  INKEY  *  =  ’’N"  THEN  GOTO  400 


2090  GOTO  2ø7ø 
2100  FOR  N  =  1 1  TO  19 
2110  PRINT  Rf  N , 2; ■ 


BRICKS  URR 


2120  NEXT  N  _ 

2130  PRINT  RT  4.5,  WflBW 

2140  GOTO  6 

2150  SRVE  'ER ICKSUfiS" 

2200  RUN 
3000  PR  I  NT  ' 

Siøpri?5t^»  BRICKS  URR 

3020PRINT  V— — 

SSSøprStt^bi 

3040  PRINT  DU  HRR  EN  GRIBE  HR 
NDSKE,  SOM  *" 

3050  PRINT  "M  DU  -5KRL  GRIBE  MURS 
TENENE  DER  B” 

3060  PRINT  KOMMER  NED  FRR  OUE 
N.  DE  *" 

3070  PRINT  "!*  MUPSTEN  DU  IKKE  Ffl 
RR  FRNDT  B“ 

3060  PRINT  nå  PRR  UIL  BYGGE  EN  M 
UR  OG  NRRR  ft' 

3090  PRINT  ”B  MUREN  ER  PRR  HØJDE 
MED  DIG  åT 

3100  PRINT  ”B  ER  DU  FRERDIG. 

HR" 

3105  PRINT  "M 


3110  PRINT  ^B  DER  FOREKOMMER  TO 
SLRGS  STEN  B‘* 

3120  PRINT  "M  DEN  ENE  UIL  GIUER 
DIG  POINT  B” 

3130  PRINT  nå  DEN  ANDEN  i. 


DIG  POINT 
3130  PRINT 
IL  TRGE  10 


DEN  ANDEN  U 


3140  PRINT  "B  POINT  FRR  DIG 

nå" 

3150  PRINT  M* 


3160  PRINT  "B 
NE  5  OG  Q.  B" 
3170  PRINT  “B 


DU  STYRER  MED  PILE 


3160  PRINT  "B  NRRR  DU  ER  KLRR ,  S 
RR  TRST  L  MF 
3190  PRINT  nQ 


3190  PRINT  1 
3200  P  NT  ’ 

00  1 
3310  RETURN 

4000  CLS 

4001  PRINT  4 


v‘*  <  >  *'L THEN  GOTO  33 


4020  PRINT  nt  ØNSKER  DU  RT 

SE  MT 

4030  PRINT  ^  INSTRUKTION 

4040  PRINT  *B 

4050  PRINT  (J/N) 

4060  PRINT  nå 

“  O  "  THEN  GOTO  3 

4110  IF  INKEY* O  "N”  THEN  GOTO  4  1 
00 

4120  CLS 
4170  PRINT 
4180  PRINT 
4190  PRINT 

4200  PRINT  44  “T*  MF 

4210  PRINT  44  |  U  r. 

4220  PRINT  44  |  |  ||" 

4230  PRINT 
4240  PRINT 

4260  PRINT  44  r—  F"* 

4260  PRINT  44  I  I  Lb 

4270  PRINT  44  |  W  | 

4275  PRINT 
4260  PRINT 

4300  PRINT  44  r*-  “TT  I  | 


43^^  PR  JNT 
4320  PRINT 


CPR 


Har  du  idet  et  falsk  cpr-num- 
mer  ? 

Ved  hjælp  af  Modulus  II  me¬ 
toden  beregner  dette  Spec- 
trumprogram  om  nummeret 
er  korrekt  eller  ej. 


2  FOR  n=0  TO  8:  PRINT  :  NEXT  n 


5  LET 

#####" 

15  PRINT  "HUlLKET  CPR. NR.  ØNSKES  TESTE 
T  ?" 

20  POKE  23617,236:  INPUT  "Cs=STOPl  CPR 
.NR.  " ;C$ 

25  IF  C*="s"  THEN  STOP  — 

30  IF  LEN  C$<>10  THEN  PRINT  FLASH  I  5 
"GIU  HIG  10  CIFRE  TAK  S":  PRINT  s$:  GO  T 
O  5 

35  PRINT  :  PRINT  CfC  TO  63 J"-"  JC$C7  TO 
1 :  GO  TO  070 

43  LET  SUI1=0:  FOR  1  =  1  TO  3:  LET  SLH1=SU 
, H+UAL  C*CI1*C5-ID:  NEXT  I 

,50  FOR  1=4  TO  9:  LET  SUn=SUn+UAL  C$CI1 


16  SOFT  Special 


Garfield  II 


vie 

ø  REM  GARFIELD  ■  —  I  IlfiPflOFXWPf 

1  REM  HANS  HENRIK  H  HANSEN  ■  Or*  I  ,‘^^r™00 

2  REM  SILKEBORG  1984  ■  I  /L - 1 

20  PRINT"'  I  GARFIELD  I"' 

30  PRINT"  ' - '"  '  * 

40  PR  I  NT  "»MIS«««  COPVRIGHT  1984" 

50  PRINT"*!  BV  HANS  HENRIK" 

60  PRINT"«««  ALL  RIGHTS  RESERVED" 

70  PRINT" - " 

8ø  F0RT=1T05000 : NEXT •  PRINT"«  HIT  A  KEV" 

90  GETA*: IFA$=" "THEN90 

100  PRINT"n*llW#  GARFIELD  ER  LAVET" 

110  PRINT"«  UD  AF  46  DEFINERBARE" 

120  PRINT"«  KARAKTER"  .  M 

130  PR I NT"««««  POKE-V«RDIER  FRA"  JL 

140  PRINT"«  35-80"  JB 

150  F0RT*1T04500 ;  NEXT :  PRINT"«««  HIT  A  KEV"  JJK 

160  GETA*-  IFA*="  "THEN160  Af? 

170  PRINI'  .HBI«  HVIS  BILLEDET  SKAL"  J®,  “ 

180  PRINT"*«  LIGNE  GARFIELD,  S  AA " 

190  PRINT"««  VÆR  SIKKER  PAA"  ML L 

200  PRINT"««  AT  DATA  SÆTNINGERNE"  ¥/■>«, 

210  PRINT"««  ER  OK,  FØR  RUN."  H  '  jfc 

220  PRINT"*#  VENT  LIDT  CA  <7  SEK.)"  ( 

230  F0RT“lT035øø ; NEXT •  PRINT"*#  HIT  A  KEV"  \  ^  tSA 

240  GETA$:  IFA**" "THEN240  V 

250  PRINT"  IT 
255  POKE  808,127 

260  POKE52 , 28 • P0KE56 , 28 • F0RA=7448T  078 1 6  ^  POKEA , PEEK <  A+25600 ) : NEXT 

270  F0RA=øT045 • B=A#8+7448 : F0RC=BT0B+7 • READD ■ POKEC, D • NEXT : NEXT 

280  DATA, ,,,,,, 1 ,,,,,,,, 129, ,, 7, 25. 35, 68 . 137, 8 

290  DATA, ,224,243,255, 175,73,26, ,, , 192,240,240,80, 160 

300  DATA, 7, ,6,9, ,,,70,44,156, 124,64, 199, 2øø,21ø 

310  DATA19, 4, 8, 16, 16,208,48, 16,208,46, 17, 16,8,8,74.74 

320  DATA64, 128, 195, 196, 105,82,84, 73, , , , , 192, , , 192 

330  DATA, , ,60,67,64,64,64, 1, 1, 1,57,69, 133, 133, 132 

340  DATA212, 16, 12, , 192,224,240,224, 16, 16,8, 199, 160.144, 159,209 

350  DATAS, 8, 16,239,68,56,215, 18, 122, 132, 148, 4, 76, 213,69, 77 

360  DATA32, , , 112, 136,9, 14,8, , , , ,,224, 16,8 

370  DATA185, 129, 129, 64,56, 16, 16, 16,68,2, 1 , 192, , , ,  140 

380  DATA 1 92,64,64, 254 , 30 , 14,3, , 177, 159, 145,209, 57, 7, , 192 

390  DATA18, 255, 18, 18, 19,252, , ,221,77,78, 124, 184,48,33,67 

400  DATA 12, 4, 4, 24, , ,3, 128,8, 16,240,8,8,48, 192,32 

410  DATA15, , , , ,,,,115,,,.,,,,, 192, 48, 4ø, 64 . 96, 24ø, 224 

420  DAT A, , , , , , 120, 230 ,1,,,,,,,,1 34 ,152, 96 , 64 , 32 , 32 , 16, 16 

430  DATA 1 2ø ,4,3,,,,,, 32, 64, 128, ,,,,,1,1,1,1,3,3,3,2 

440  DATA192, ,128, 192,224, 192, 128, , 231, 79, 12, ,  1 , 3, 7, 1 

450  DATA, ,  128, 128, 128, 128,  128, 128,8,8,4,-1,4,4,4,4 

46ø  DATA3, 3, 3, 3, 7, 3ø, 48, 63,, 128, 192. 128,,, 128, 255  i 

470  DATA,, 4, 2, 1,1, 34, 255, 240, 8, 68, 34, 18, 20, 36, 255  I 

480  DATA4, 6, 5, 12,10,18, 52,255, ,,,128,128,128.128,  $ 

490  A*=  "  **■/.& '  HHMIIC  ) *+ ,  -Mlllllll.  /ø  1 2345MIIMIIII6739  •  ,Q="  1 

500  B*=">?-*l - Mlllllll— I  K  '■MIIII'Lvn" 

51ø  PRINTSPC< 1 18) , A*  Æ “  ^  Å 

520  PRINTSPC<7)JBi  rk  ^*9 

53ø  G0T0530  f  9" 


H*W  COPVRIGHT  1984" 
BV  HANS  HENRIK" 

ALL  RIGHTS  RESERVED " 


HIT  A  KEV" 


HIT  A  KEV" 


HIT  A  KEV" 


P0KE36869.255 


C-  5 
±  J 


I  »Alt  om  Data«  har  vi  tidligere 
vist  en  flot  tegning  at  katten 
Garfield,  fremstillet  pd  en  RC 
Piccolo  computer. 

I  denne  omgang  vil  vi  vise 
dig,  hvordan  du  med  en  VIC- 
20  kan  fd  et  vellignende  por¬ 
træt  af  den  populære  kat  pd 
din  TV-skærm. 

Programmet,  der  kører  pd  en 
standard  VIC'er,  tegner  Gar¬ 
field  i  højopløsning.  Og  han 
ligner  virkelig  sig  selv. 

Hans  Hemik 
Hannibal  Hansen 


*C  11-ID5  NEXT  I 

52  LET  R=1 1  +  INT  CSUfVl  1 3*1 1-SUH 

53  IF  S* 10  THEN  LET  R=0 

54  IF  R*1 1  THEN  LET  R=1 

55  PRINT  s  PRINT  "DET  SIDSTE  CIFFER  SK 
AL  UAERE  " J  FLASH  1 ;R :  PRINT 

56  IF  NOT  STR*  R=C*C103  THEN  GO  TO  60 

57  IF  CR'23=INT  CRx23  THEN  PRINT  "NUN 
NERET  PASSER  PAA  EN  FLASH  lj"KUINDE" 

58  IF  CR/23  0INT  CR/23  THEN  PRINT  "NU 
MNERET  PASSER  PAA  EN  "J  FLASH  1 5  'TIAND" 

60  PRINT  :  PRINT  s* 

65  GO  TO  15 

75  LET  HD=UAL  C*C3  TO  43 

80  IF  P1D<1  OR  f1D>  12  THEN  GO  TO  120 


85  LET  DA=UAL  jC$Cl  TO  23 
90  IF  CND=1  OR  ND=3  OR  ND=5  OR  ND=7  OR 
nD=8  OR  flD=10  OR  ND=123  AND  DA>31  THEN 
GO  TO  1?0 

95  IF  MD=2  AND  DA>29  THEN  GO  TO  120 
100  IF  CI1D=4  OR  [1D=6  OR  f1D=9  OR  HD=1 1 3 
AND  DA>30  THEN  GO  TO  120 
105  LET  SK=>UAL  C$C5  TO  63^4 
110  IF  NOT  SK=INT  SK  AND  ND=2  AND  DA>=2 
9  THEN  QO  TO  120 
115  GO  TO  40 

120  PRINT  :  PRINT  FLASH  15 "DATOEN  EKSI 
STERER  IK;KE  S" 

125  PRINT  s$:  GO  TO  15 
9999  SAUE  "CPR^TEST"  LINE  0 


SPEC¬ 

TRUM 
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,'1 


X  I  MEMOTECH 


Det%amle  hus 


"Det  gamle  hus"  er  et  Adventure-(eventyi)spil,  hvor  du  er  fan¬ 
get  indeni  en  gammel  faldefærdig  rønne  med  en  lige  så  for¬ 
sømt  have.  Din  opgave  er  at  komme  ud  fra  dette  (farlige?) 
sted.  Undervejs  vil  du  støde  på  forskellige  ting,  som  kan  være 
til  hjælp  eller  til  besvær. 

Nogle  gode  råd  til  løsning  af  spillet: 

Din  bedste  hjælp  er  din  fantasi. 

Du  kan  skrive  N.  S.  0.  ell.  V.  når  du  vil  gå  mod  henholdsvis 


Bruges  til  at  lægge  en  af  de  ting  du  bær  på . 

Skriv:  LÆG  <tal>  eller  L  <  tal  >,  hvor  <tal>  er  nummeret  på 
den  ting,  du  vil  lægge. 

Eks.:  LÆG  2  (lægger  den  anden  ting  på  inventarlisten). 
Retur:  <R>  +  < ret >,  næste  ordre:  <ret> 

GEM 

Med  denne  ordre  kan  du  gemme  "stillingen"  på  bånd,  skriv 
-G-  eller  'GEM'. 


Med  denne  ordre  kan  du  få  at  vide,  hvor  længe  du  har  væ¬ 
ret  i  huset. 

Retur:  <R>  .+  < ret >,  næste  ordre:  <ret> 


Denne  ordre  bruges  til  at  ta'  ting.  Du  skriver  bare:  TAG  eller  T, 
hvorved  du  tager  den  ting,  der  er  i  rummet. 


nord,  syd,  øst  ell.  vest. 

Hvis  du  vil  have  hjælp,  skriver  du  HJÆLP  eller  bare  H,  men 
prøv  uden.  En  del  af  det  sjove  er  jo  at  bmge  fantasien  til  at  fin¬ 
de  ud  af  de  ordrer,  man  kan  bmge. 

Du  kan  altid  gemme  spillet  på  et  hvilket  som  helst  tidspunkt. 
Du  skriver  bare  'G'  eller  'GEM' 

Æ,  0,  Å  sidder  lige  til  venstre  for  linefeed-,  BS-  og  ret-tasten 
<ret> . 

INVENTAR 

Med  denne  ordre  kan  du  se  hvad,  du  bær  på,  altså  en  inven¬ 
tarliste. 

Skriv:  INVENTAR  eller  I. 

Retur:  <R>  +  < ret >,  næste  ordre:  <ret> 

ÅBEN 

Med  denne  ordre  kan  du  åbne  den  ting  der  er  i  rummet. 
Skriv:  ÅBEN  eller  Å. 

OPSPRÆT 

Med  denne  ordre  kan  du  sprætte  noget  op  med. 

Skriv:  OPSPRÆT  eller  O. 

Retur:  <R>  +  < ret >,  næste  ordre:  <ret> 

MAD 

Med  denne  ordre  kan  du  made  nogen  eller  noget. 

Skriv:  MAD  eller  M. 

Peter  Enø  Cordsen 
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1  REM  *»  LINIE  10  ER  AUTO-START  ** 

10  SAVE  "DET  GAMLE  HUS” 

100  REM  - 

110  REM  *  STYR  * 

120  REM  _ 

130  OOSUB  8000 

180  PLOD  "INTRO-STYR" 

150  GOSUB  9000 
160  GOSUB  200 
185  CSR  1.22 

190  INPUT  "VIL  DU  PRØVE  IGEN  ?  (J/N)  ”:Ft 

191  IF  Ft-"J"  TMEN  GOTO  150 

199  STOP 

200  REM  - 

210  REM  •  INPUT-STYR  * 

220  REM  _ 

230  GOSUB  aoo 

280  INPUT  "  HVAD  VIL  DU  GØRE  NU  7  ":Mt 
250  PRINT  :  PRINT  :  PRINT 

260  IP  Mt-"N"  OR  Mt-"S"  OR  Mt-"0"  OR  Mt-"V"  THEN  GOSUB  680 
270  IF  Mt-"T"  OR  LEFTt (Mt. 3) -"TAG"  THEN  GOSUB  970 
290  IF  LEFTt(Mt. 1)-"I"  OR  Mt -"INVENTAR"  THEN  GOSUB  1130 
300  IF  LEFTt (Mt. 1 )-"L"  OR  LEFTt ( Mt . 3 > »"LØG"  THEN  GOSUB  1280 

310  IF  Mt-"A"  OR  LEFTt(Mt. 4 )-"ABEN"  OR  Mt-"0"  OR  LEFTt (Mt . 7 ) -"OPSPRÆT"  THEN  GOS 
UB  1870 

330  IF  Mt-"M"  OR  LEFTt (Mt. 3) -"MAD"  THEN  GOSUB  2000 

380  IF  Mt “"G"  OR  Mt “"GEM"  THEN  GOSUB  5000 

330  IF  Mt“"H"  OR  Mt-"HJÆLP"  THEN  PLOD  "HJÆLP-STYR" 

360  IF  Mt“"TID”  THEN  GOSUB  8000 
370  IF  ENDt-"SLUT"  THEN  RETURN 
390  GOTO  200 

800  REM  - 

810  REM  *  START  SPIL  * 

820  REM  _ 

880  CLS 

850  PRINT  "  DET  GAMLE  HUSI" 

860  PRINT  " 

870  PRINT 

875  PRINT 

880  PRINT  :  PRINT 

890  PRINT  "  DU  ER  I"jRt(R) 

500  PRINT 

510  PRINT  "  DER  ER  UDGANGE  MOD: 

520  IF  Dl  ( R  )  OO  THEN  PRINT  "NORD  "j 
530  IF  D2 ( R )<>0  THEN  PRINT  "ØST 
580  IF  D3(R)<>0  THEN  PRINT  "SYD  "{ 

550  IF  D8(R)<>0  THEN  PRINT  "VEST 

560  PRINT  r  PRINT 

580  FOR  1-1  TO  11 

585  IF  L( I )<>R  THEN  GOTO  600 

*90  PRINT  "  HER  ER":Nt(I):Tt(I)| 

595  IF  R-5  THEN  PRINT  ",  DEN  ER  "j  ELSE  PRINT  ",  DER  ER  "j 
597  PRINT  At ( I ) :  PRINT 
600  NEXT  I 
610  RETURN 

680  REM  - 

650  REM  •  N.Ø.S  ml.  V  • 

660  REM  _ 

680  IF  Mt-"N"  AND  Dl ( R )<>0  THEN  LET  R-Dl(R):  RETURN 

700  IF  Mt“"0"  AND  D2 ( R )<>0  THEN  LET  R-D2(R>:  RETURN 

710  IF  Mt-"S"  AND  D3(R)<>0  THEN  LET  R-D3(R):  RETURN 

720  IF  Mt-"V"  AND  08(8)00  THEN  LET  R-D8(R):  RETURN 

730  PRINT 

780  PRINT  "  DU  KAN  IKKE  GA  MOD«  "» 

750  IF  Mt-"N"  THEN  PRINT  "NORD" 

760  IF  Mt-"0"  THEN  PRINT  "ØST" 

770  IF  Mt ■ "S"  THEN  PRINT  "SYD" 

780  IF  Mt • "W"  THEN  PRINT  "VEST" 

790  PAUSE  2500 
800  RETURN 

970  REM  - 

980  REM  *  TAG  f  * 

990  REM  _ 

1020  FOR  1-1  TO  11 

1030  IF  R-L(I)  THEN  GOTO  1055 

1080  NEXT  I 

1050  PRINT  "  DER  ER  IKKE  NOGET  AT  TA’":  PAUSE  2500:  RETURN 

1055  IF  R-l  AND  B-0  THEN  PRINT  ”  BOKSEN  ER  UiNKET  TIL  VÆGGEN  PAUSE  2500:  R 

ETURN 

1057  IF  R-3  AND  RO-O  THEN  PRINT  "  ROTTEN  KLISTRER  TIL  GULVET  !"«  PAUSE  2500:  R 
ETURN 

1060  IF  R-10  AND  P-0  THEN  PRINT  "  PENGESKABET  ER  FOR  TUNGT":  PAUSE  2500:  RETUR 
N 

1062  IF  R-19  THEN  PRINT  "  DU  KAN  DA  IKKE  TA  *  MONSTERET  !?":  PAUSE  2500:  RETURN 

1070  IF  1-9  THEN  LET  Fl-1 

1080  IF  1-2  THEN  LET  F2-1 

1090  IF  1-3  THEN  LET  F3-1 

1095  IF  1-1  THEN  LET  F8-1 

1100  IF  1-5  THEN  LET  F5-1 

1110  IF  1-8  THEN  GOSUB  6000:  RETURN 

1112  LET  L( I ) -100 

1115  PRINT  "  ” ; Tt ( I ) J "  TAGET" 

1120  PAUSE  2500:  RETURN 

1130  REM  - 

1180  REM  *  INVENTAR  t  * 

1150  REM  _ 

1170  CLS 

1180  PRINT  "  DU  BÆR  På  :  " 

1200  FOR  1-1  TO  11 

1210  IF  L(  1)0100  THEN  GOTO  1230 
1215  PRINT 

1220  PRINT  "  "  : Nt ( I ) ; Tt ( I ) 

1230  NEXT  I 

1280  PRINT  :  PRINT  :  PRINT  :  PRINT 
1250  INPUT  "  TRYK  <rat>";Xt 

1270  RETURN 

1280  REM  — - - 

1290  REM  *  LÆG  t  * 

1300  REM  _____ _ 

1310  LET  Y-0 

1315  IF  MtO"L"  AND  MtO"LÆG"  THEN  GOTO  1330 
1320  PRINT  "  HVAD  SKAL  JEG  LÆGGE  ?" 

1322  PAUSE  950 

1328  PRINT  :  PRINT  "  >SE  INVENTARLISTEN  ELLER  HJÆLP" 

1327  PAUSE  2800:  GOTO  1850 

1330  IF  LEFTt  ( Mt .  3 ) O" LÆG"  THEN  LET  It-MIDt  ( Mt .  3.  3 )  ELSE  LET  It-MIDt  ( Mt .  5 .  5  ) 

1380  FOR  1-1  TO  11 

1350  IF  L( I ) -100  THEN  LET  Y-Y*l 

1360  IF  L( I ) -100  AND  Y-VAL(It)  THEN  GOTO  1810 

1370  NEXT  I 

1380  PRINT  :  PRINT 

1390  PRINT  "  DU  BÆR  IKKE  PA  NOGET  SADANT" 

1800  GOTO  1850 
1810  IF  1-9  THEN  LET  Fl-0 
1820  IF  1-2  THEN  LET  F2-0 
1830  IF  1-3  THEN  LET  F3-0 
1880  IF  1-5  THEN  LET  F5-5 
1883  LET  L( I ) -R 

1885  PRINT  "  Tt ( I ) s "  LAGT" 

1850  PAUSE  2500:  RETURN 


1 860  REM  - 

1870  REM  *  ABEN.  OPSPRÆT  !  * 

1880  REM  _ 

1890  IF  R- 1  AND  B-0  THEN  GOSUB  1600 
1500  IF  R-3  AND  RO-O  THEN  GOSUB  1700 
1510  IF  R-10  AND  P-O  THEN  GOSUB  1800 
1520  IF  R-20  THEN  GOSUB  1900 

1530  IF  ROl  AND  B-0  AND  R<>3  AND  RO-O  AND  ROIO  AND  P-0  AND  R<>20  THEN  PRINT 
DER  ER  IKKE  NOGET.  JEG  KAN  ÅBNE  HER  " 

1580  PAUSE  2800 
1590  RETURN 

1600  REM  ***»••*#**•****# 

1610  IF  F2-0  THEN  GOTO  1680 

1620  PRINT  "  DER  ER  NOGLE  NUMRE  INDENI  BOKSEN  !" 

1630  LET  N t ( 1 ) — "  ET  " 

1680  LET  Tt(l) -"STYKKE  PAPIR" 

1650  LET  At ( 1 ) -"  SKREVET  NOGLE  NUMRE  PA" 

1660  LET  B-l 
1670  RETURN 

1680  IF  R-l  THEN  PRINT  "  JEG  HAR  IKKE  NOGEN  NØGLE" 

1490  RETURN 

1700  REM  •***•**#****»*•# 

1710  IF  Fl-0  THEN  GOTO  1780 

1720  PRINT  "  DER  ER  EN  NØGLE  INDENI  DENS  INDVOLDE!" 

1730  LET  Tt (2) -"NØGLE" 

1780  LET  At ( 2 ) -"AF  GULD" 

1750  LET  RO-1 
1760  RETURN 

1780  PRINT  "  JEG  HAR  IKKE  NOGEN  KNIV" 

1790  RETURN 

1800  REM  •***•****••••*** 

1810  IF  F8-0  THEN  GOTO  1880 

1820  PRINT  "  DER  ER  ET  STYKKE  STÅLTRÅD  INDENI” 

1822  PRINT  :  PRINT  "  PENGESKABET  !" 

1825  LET  Tt ( 5 ) -"STYKKE  STÅLTRÅD" 

1830  LET  At( 5)-”  STIFT" 

1880  LET  P-l 
1850  RETURN 

1880  PRINT  "  JEG  KENDER  IKKE  KOMBINATIONEN" 

1890  RETURN 

1900  REM  **•*****•***•••• 

1920  IF  Fl-1  AND  F2-1  AND  F3-1  AND  F5-1  AND  F6-1  THEN  GOSUB  6500:  RETURN 
1930  PRINT  "  DU  HAR  IKKE  GJORT  NOK." 

1938  PRINT 

1935  PAUSE  850 

1936  PRINT  "  ELLER  OGSÅ  BÆR  DU  IKKE  PA  NOK" 

1980  RETURN 

2000  REM  — - - - - - 

2010  REM  *  MAD  !  * 

2020  REM  _ _ ___^ 

2030  IF  R<>19  OR  F6-1  THEN  PRINT  "  DER  ER  INGEN.  JEG  KAN  MADE":  GOTO  2100 
2080  IF  F3-0  THEN  PRINT  "  JEG  HAR  INTET  AT  MADE  MED":  GOTO  2100 
2050  PRINT  "  MONSTERET  KASTER  OP  OG  DØR  !" 

2060  LET  At (10) -"MEGET  STORT  OG  DØDT  I" 

2070  LET  F6-1 
2100  PAUSE  2500 
2110  RETURN 

8000  REM - - - - - — _ — - - 

8010  REM  *  TID  * 

8020  REM  _ 

8080  PRINT  "  DU  HAR  NU  VÆRET  HERINDE  I  ": LEFTt ( TIMEt . 2 ):".": MIDt ( TIMEt . 3. 2 ) S ". " 
: RIGHTt ( TIMEt . 2 ) 

8050  PAUSE  2700 


PRINT  :  PRINT 

PISTOLEN  GIK  AF  I  HÅNDEN  På  DIG 


OG  DRÆBTE  DIG  »" 


8100  RETURN 

5000  REM - - 

5010  REM  •  SAVE  !  * 

5020  REM  _ _ 

5030  CLS 

5080  INPUT  "  START  BANDOPTAGEREN  OG  TRYK  <rat>": Ft 
5083  CSR  3.6 

5085  PRINT  "NU  GEMMES  'DET-GL-HUS*  " 

5050  SAVE  "DET-OL-HUS" 

5055  VS  O:  CLS  :  VS  5 
5060  CSR  3. 11 

5062  PRINT  "SPILLET  ER  NU  GEMT" 

5065  PAUSE  2100 
5068  GOSUB  8000 
5070  RETURN 

6000  REM - - — 

6010  REM  *  DEADEND  !  * 

6020  REM _ _ 

60?5  LET  END#- "SLUT" 

6030  CLS 

6080  FOR  1-1  TO  36 
6050  PRINT  "H*n  MICK  I 
6060  NEXT  I 
6065  PRINT 

6070  PRINT  :  PRINT  :  PRINT  :  PRINT 

6080  PRINT  "  PISTOLEN  GIK  AF  I  HÅNDEN  På  DIG  OG  DRÆBTE  DIG  »" 

6085  PRINT 

6090  FOR  I-l  TO  5 

6100  PRINT  CHRt (7 ) : 

6110  NEXT  I 
6120  RETURN 

6500  REM  - 

6510  REM  *  UDENFOR  !  * 

6520  REM _ _  _ 

6530  LET  ENDt -"SLUT" 

6580  CLS 

6550  FOR  I-l  TO  100 
6560  PRINT  "TILLYKKE  !  "i 
6570  NEXT  I 

6580  PRINT  :  PRINT  :  PRINT 

6590  PRINT  "  DU  UNDSLAP  PA  ": LEFTt ( TIMEt . 2 );". "j MI Dt ( TIMEt .  3.  2 ):".":  RIG 

HTt( TIMEt. 2); "  T" 

6591  REM  PRINT  "  DU  UNDSLAP  PA  "; LEPTt(TIMEt. 2 ) : "TIMER  ": MIDt ( TIMFt . 3. 8 

):"  MINUTTER  OG  ": RIGHTt ( TIMEt . 2 ): ”  SEKUNDER  J" 

6600  PRINT  :  PRINT  :  PRINT  :  PRINT 
6610  RETURN 
7030  RETURN 

8000  REM - - - 

8010  REM  *  DANSKE  BOGSTAVER  » 

8020  REM  _____ _ 

8030  GENPAT  0.123.0.0.280.80.288,160.120.0 
8080  GENPAT  0.91.56.80.188.188.288.188.158.0 
8050  GENPAT  0.128.0.0,112.152.168.200.112.0 
8060  GENPAT  0.92.112.136.152.168.200.136.112.0 
8070  GENPAT  0.125.32.0.96.16.112.188.120.0 
8080  GENPAT  0.93.32.0.32.80.136.288.136.0 
8090  RETURN 

9000  REM  - 

9010  REM  *  INITIALISER  * 

9020  REM  _ 

9025  CLEAR  :  RESTORE  9180 

9026  CLOCK  "000000" 

9027  LET  Y-0:  LET  Ht-”" 

9030  LET  R-l:  LET  ENDt-"" 

9035  LET  B-0:  LET  RO-O:  LET  P-0:  LET  M-0 

9080  LET  Fl-O:  LET  F2-0:  LET  F3-0 

9050  LET  F8-0:  LET  F5-0:  LET  F6-0  bi3|J 

9060  DIM  Rt(20.  17).  L(ll) 

9065  DIM  Dl ( 20 ) , D2 (20) , D3(20) . D8 ( 20 )  W 


DU  UNDSLAP  PA  ": LEFTt ( TIMEt , 2); " . " : MI Dt ( TIMht , 3. 2); ". ": RIG 
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9070  DIM  NS( 11 . 4  )  . T*(ll. 15)  . AS( 11. 35) 

9080  FOR  1-1  TO  20 
9090  READ  Rt(X) 

9100  NEXT  I 

9110  FOR  1-1  TO  20 

9120  READ  D1(I).D2(I).D3(I).D4(I) 

9130  NEXT  I 

91*0  FOR  1-1  TO  11 

9150  READ  NS(X).TS(I). AS(X).L(I) 

9160  NEXT  I 
9165  REM 

9170  REM  ******  DATA  FOR  RUM  ****** 

9175  REM 

9180  DATA  ET  BADEVÆRELSE.  EN  SPISESTUE.  ET  KØKKEN.  ET  FORRADSKAMMER 
9190  DATA  ET  SOVEVÆRELSE.  EN  KÆLDER.  ET  SKRALDERUM.  ET  COMPUTERRUM 
9200  DATA  ET  MØRKT  RUM.  EN  DAGLIGSTUE.  ET  LILLE  RUM.  ET  STORT  RUM 
9210  DATA  ET  LEGERUM.  EN  SWIMMINGPOOL.  ET  DRIVHUS.  EN  HAVE 
9220  DATA  EN  GARAGE.  ET  SKUR.  ET  STØVET  RUM.  EN  ENTRE 
9225  REM 

9230  REM  ******  DATA  FOR  DØRE  ****** 

9235  REM 

9240  DATA  O. 2 . O. 0 . 0 . 3. 0 . 1 . 0 . 4 . 0 , 2 . 0 , 0 , 7 . 3 . 0 . 6 . 0 . 0 .  0 . 0 . 9 . 5 
9250  DATA  4.0.10.0.0.9.13.0.6.0.0.8.7.11.0.0.0.15.12.10 
9260  DATA  11.0.19.14.8.14.0.0.0.12.17.13.0.0.0.11 
9270  DATA  0.17.0.0.14.18.0.16.0.19.0.17.12.20.0.18.0.0.0.19 
9275  REM 

9280  REM  ******  DATA  FOR  TING  ****** 

9290  REM 

9310  DATA  EN  . BOKS. LAST. 1.  EN  . ROTTE . DØD . 3.  EN  .DASE. FULD  AF  CHAM-  PIGNONS. 4 
9330  DATA  EN  . PISTOL. IKKE  LADT. 5 
9340  DATA  ET  . PENGESKAB. LAST. 10 
9350  DATA  EN  .DØR. LAST. 20 

9360  DATA  EN  .SKO. MEGET  GAMMEL  OG  SNAVSET. 14 

9370  DATA  EN  . ST IGE . BRÆKKET  MIDT  OVER. 12 

9380  DATA  EN  .KNIV. MEGET  SKARP. 16 

9390  DATA  ET  . MONSTER . MEGET  STORT. 19 

9400  DATA  ET  .SKELET. FRA  EN  SOM  IKKE  SLAP  UD.  17 

9500  VS  O:  CLS  :  VS  5:  CLS 

9900  RETURN 

9920  REM  ******************************* 

9922  CLS  :  INPUT  "  SÆT  TOF":XS 
9924  LPRINT  CHR* ( 27 ) ; ” ( ” 

9926  LPR T  NT  CHRS (  27  ) : " 1" : CHR$ (41) 

9930  PLOD  "UDI" 

9932  PLOD  "UD2" 

9934  LPRINT  CHR* ! 27 ) : "l":CHR$f01 
9936  LPRINT  CHR* ( 27 ) : "N" i CHR* ( 1 > 

9037  LPRINT  CHR«<12> 

9938  LL1ST 
9940  STOP 


Oversigt 

H  HJÆLP 
G  GEM 
TID 

T  TAG 
I  INVENTAR 


L  LÆG  (ni.  på  Inventar-listen) 

Å  ÅBEN 
O  OPSPRÆT 
M  MAD 

N  S  0  V  tor  nord  syd  øst  vest 
NB.  alslut  altid  med  <ret> 


Hjælp-styr 

~b  *  DISPLAY  VALG  *E 
*IF  R,  r 

*IF  O.  o 

*GOTO  Hl. 

~h  *D  INSTRUK2.  *E  *B  b 

"o  *D  OVERSIGT  *E  *B  b 

~r  *  RETURN 

Hl 

*IF  GEM,  g 

*IF  TID,  g 

*IF  TAG,  t 

*IF  INVENTARLISTE,  t 

*IF  INVENTAR,  t 

*IF  LÆG.  1 

*IF  ÅBEN,  å 

*IF  OPSPRÆT,  å 

*IF  MAD.  m 

~1  *  DISPLAY  INSTRUK 1 .  *E  *1  R.  b 
"g  *  DISPLAY  INSTRUK2.  *E  *1  R,  b 
~t  *  DISPLAY  INSTRUK3.  *E  *  I  R.  b 
~å  *  DISPLAY  DMSTRUK4.  *E  *1  R,  b 
-m  *  DISPLAY  INSTRUK5.  *E 
~b  *GOTO  HJÆLP-STYR. 

Hjælp! 

Hvad  vil  du  se 

-En ordreoversigt:  <0>  +  <ret> 

-  Den  iørste  ordre:  <ret> 

-  En  bestemt  ordre:  <R>  +  <ret> 

Vil  du  retur  til  spil:  <R>  +  <ret> 


Kære  læser. 

Vi  håber,  at  du  er  tilfreds  med  programmerne  i  det  første  nummer  af  SOFT 
SPECIAL 

Skulle  du  ligge  inde  med  tilsvarende  gode  -  og  måske  endnu  sjovere  og 
bedre  -  programmer,  du  selv  har  lavet,  hører  vi  gerne  fra  dig.  SOFT  er 
nemlig  læsernes  blad,  og  vi  betaler  op  til  1 000  kroner  for  et  rigtig  spæn¬ 
dende  program.  Og  måske  får  netop  dit  program  en  fremtrædende  plads 
i  det  næste  SOFT  SPECIAL  eller  i  "Alt  om  Data". 

Indsend  dit  program  på  kassettebånd  eller  disc  og  gerne  vedlagt  en  ud¬ 
printning.  Samtlige  programmer  testes  og  vurderes,  inden  de  offentliggø¬ 
res.  Alt  materiale  returneres  efter  brug,  og  bladet  har  fuld  ret  til  at  publi¬ 
cere  programmet  på  tryk  og  eventuelt  andet  lagermedium. 

Programmer  sendes  til  "Alt  om  Data",  St.  Kongensgade  72,  1264  Køben¬ 
havn  K. 
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Geometri 


Dette  program  til  Commodo- 
re-64,  hjælper  dig  med  geo¬ 
metrien. 

Efter  du  har  tastet  RUN  kom¬ 
mer  hovedmenuen  frem.  Her 
kan  du  vælge  imellem  rum¬ 
fang,  flade  arealer  og  over- 
i  flade  arealer. 

I  Ndr  du  har  valgt  et  af  punk¬ 
terne,  dukker  en  undermenu 
op  med  de  bestemte  figurer. 
Efter  at  have  valgt  en  bestemt 
figur,  spørger  maskinen  efter 
en  række  oplysninger,  hvor¬ 
efter  den  skriver  formlen  for  fi¬ 
guren  og  svaret. 

Husk  ved  indskrivningen  at 
kommatal  skal  skrives  med 
punktummer. Marco  Hansen 


1  REM  ************** 

2  REM  ****  **** 

REM  ********  GEOMETRI  ******** 

REM  **  ** 

5  REM  **  AF  MARCO  HANSEN  (C)  1384  ** 

REM  **  ** 

7  REM  **  BAKKEN  3  ,  7441  BORDING  ** 

REM  **  ** 

REM  ****************************** 

Ft="  , — .hissiif  aitsi — ■iiii 

5  RRINT"IiKSftW"  :G0SUB10000:PRINT"M*"TAB<10>F$1  "I  I  RUMFANG” 

6  PRINT"*"TA8<10>Ft;”3l  FLADE  AREAL" 

0  PRINT"*”TABaø>Ft;"5l  OVERFLADE  AREAL" 

5  PRINT"®’ TAB(10>Ft;  "7  I  AFSLUTTE" 

0  GETA*-IFA*=""THEN5ø 
35  IFAt=”ll”THEN3000 
IFA*="5"THEN200ø 

5  IFAt="H”THENPRINT“T :END 

6  IFA*='’S’’THEN70 
G0T050 

7ø  . . .  :00SUB10000-PRINT"»»H»W“F*;  "1 1  RUMFANG  AF  EN  KUGLE” 

1  PRINT”*m»Mi*l”Ft;''2l  RUMFRNG  AF  EN  CVLINDER” 

2  PRINT")»*»ttM"F*;  "3  I  RUMFANG  RF  EN  PYRAMIDE" 

PRINT"»mmi"Ft;  "4  I  RUMFANG  AF  EN  PVRAM IDESTUB” 

PRINT"»»»»»»U’’Ft;"5i  RUMFANG  AF  EN  KEGLE" 

75  PRINT”)»*»*mrFt;  ”6 1  RUMFANG  AF  EN  KEGLESTUB" 

PRINT ’SttMMtr Ft;  "7  I  TILBAGE  TIL  HOVEDMENU" 
ø  GETAt: IFAt=’”'THEN80 

90  A-ASC<At> : IFA<1330RA>140THENA**”” 'G0T080 
S  A=A-132: ONAGOTO 1 00, 200 , 300 , 20, 400 , 500 , 700 , 80 
0  INPUT” ISGBRAD I US  RF  KUGLE  ”;R; SV=4*«*R1373 : Rt=STRt<R> 

0  PRINT”*  4  *  ir  *";R”llt3" 

0  PRINT"RUMFANG  «  :F0RI=lT09+LEN(Rt) :PRINT”-”; 'NEXT:PRINT”  *”;SV 
30  PRINT”  3  ” : G0SUB20000 

200  INPUT"mmHØJDE  AF  PVRAMIDE  ”;H 
0  INPUT"M0RUNDL1NIE  X  ";GX 

20  INPUT”M3RUNDLINIE  V  ”;GV:SV=GX*GY*H/3:Ht*STRt<H>  :GXt=STRt<GX>  :GYt«STRt<GY> 
30  PRINT"*  ";GX;"*,,;GV;"*";H 

40  PRINT”RUMFANG  =  :F0RI=lT03+LEN(Ht>+LEN<GXt>+LEN<GYt>  :PRINT”-"; :NEXT 

45  PRINT”  «“;SV 

50  PRINT”  3” 

0  G0SUB20000 

0  INPUT"3MRADIUS  AF  KEGLE  "-R 

0  INPUT”»HØJDE  AF  KEGLE  ”;H-SV=ff*R12*H73:H#=STRt<H) ;Rt=STR*<R) 
ø  PRINT"*  ir  *";R”II*2  *”;H 

30  PRINT”RUMFANG  =  "i  :F0RI«lTO7+LEN<Ht>+LEN<Rt>  : PRINT"-" ; :NEXT: PRINT”  «”;SV 
0  PRINT”  3” 

0  G0SUB20000 

0  INPUT” IDCSRADIUS  AF  CVLINDER  ”;R 
10  INPUT"«HØJDE  AF  CVLINDER  ";H’SV=ir*R*2*H 
0  PRINT"»RUMFANG  *  ti  *”;R"II12  *";H;  "«";SV 
0  G0SUB20000 

øø  INPUT"3MHØJDE  AF  PVRAMIDESTUB  ”;H 
0  INPUT"*3VERST  GRUNDLINIE  X  ";GX 
20  I NPUT "MØVERST  GRUNDLINIE  V  ";GV 
0  INPUT" JNEDERST  GRUNDLINIE  X  ";NX 
40  INPUT"KNEDERST  GRUNDLINIE  V  ";NV 

0  Ht*STRt(H)  :GXt=STRt<GX)  :GYt=STRt(GY>  :NXt«STRt(NX> :NYt*STRt(NY> 
ø  T0=GX*GY : NG=NY*NX : SV=H*aG+NG+SQR<TG*NG>V3 
0  PRINT"K*ØVERWT  GRUNDFLADE  *";GX;  "*";GY; ’"';TG 
0  PRINT"*NEDERST  1 RUNDFLRDE  =’’;NX;  "*";NY;  ”*";NG 

0  PRINT”*  ”;H,  "HK”  i  TG;  ”lk”;NG,  "IH-vO _ *ill«*r;TG;  "Hf"; NO;  "Il 

00  PRINT"R  FORI«lT011+LEN<Ht>+LEN<GXt>+LEN(OYt>+LEN<NYf>+LEN<NXt> 

10  PRINT"-"; ;NEXT  PRINT"  =";SV 
0  PRINT"  3” 

ø  G0SUB20000 

øø  INPUriMIHØJDE  AF  KEGLESTUB  ”JH 
0  I NPUT "MØVERST  RADIUS  "iTR 
0  INPUT"JHEDERST  RADIUS  ";NR 

ø  Ht*STRt(H)  :  TRt=STRt(TR)  :NRt=STRt(NR)  :SV=fl*H*(NR12+TRT2+CNR*TR)>/3 
5  SVt="ir*"+Ht+"*(”+NRt+"T2+"+TRt+”  12+  < "  +NRt+  " *" +TRt+ " > " 


40  PRINT”*  "?SV* 

0  PRINT"R  F0RI=lT016+LEN(H*)+LEN<NR*)+LEN<TRt) : PRINT”-”; -NEXT 
0  PRINT"«"; SV 
770  PRINT”  3" 

ø  G0SUB20000 

00  At=""  :PRINT"IDWIS”  G0SUB10000:PRINT"J®MMMl'Ft;"l  !  AREAL  AF  ENREKANT" 
01  PRINT"»M»»H"Ft;"3l  AREAL  AF  EN  PARALLELOGRAM” 

02  PRINT"»»»»MH’Ft;  ”5 1  AREAL  HF  EN  TRAPEZ” 

03  PRINT"»*»M»»r,F*;“7l  AREAL  AF  EN  CIRKEL” 

003  PRINT"»**»l®»l"Ftj  "8  I  TILBAGE  TIL  HOVEDMENU” 

ølø  0ETft*: IFA*=""THEN2010 

20  A«ASC(At>  ■  I FA< 1 330RA> 1 40THEN20 1 0 

030  A«A- 1 32 : 0NAG0T02 100, 2200 , 2300 , 2400 , 2010, 20 1 ø , 2010, 20 

100  INPUT"CMKNØJDE  AF  TREKANT  ";H 

110  INPUT" M3RUNDL I N I E  ";G:SV=H*GX2:H*=STR*<H>:G*=STRtCG> 

20  PRINT"*  ";H; ”*";G 

30  PR I NT "AREAL  RF  TREKANT  =  :F0RI=1T01+LEN(H*)+LEN(G*) :PRINT”-"; :NEXT 

140  PRINT”  *";SV 

50  PRINT"  2” 

SØ  C0SUB20000 

200  INPUT’TWM-iØJDE  HF  PARALLELOGRAM  ";H 

210  INPUT" MDRUNDL I NI E  ”;G:SV«H*G;Ht=STRt(H) :Gt=STR*(G> 

220  PRINT”M3REAL  AF  PARALLELOGRAM  =";H;"*”;G; ”=”;SV 
230  00SUB20000 

00  INPUT'TaUHØJBE  HF  TRAPEZ  ";H 
10  INPUT”*ØVERST  GRUNDLINIE  " ; TG 
20  INPUT"MÆDERST  GRUNDLINIE  ";NG 

330  SV=H* ( T G+NG )  72 :  Ht=STRt  <  H ) :T0t=STRt(TG>  :NGt*STRt<NG> 

40  PRINT"*  ";H; ”*  <n;TØj"+";Ne;">" 

50  PR I NT "AREAL  AF  TRAPEZ  ■  :F0RI=lT07+LEN<H$)+LEN<TGt)+LEN(NG*> ;PRINT"-" 

360  NEXT: PRINT"  ="JSV 

370  PRINT"  2” 

380  G0SUB20000 

400  INPUT’TDWRADIUS  AF  CIRKEL  ";RSV=tr*Rt2 
410  PRINT"MAREAL  AF  CIRKEL  *  ti  *”R;”IIT2 
20  G0SUB20000 

3000  Ht•"".PRINT,,ZaaI«l,  G0SUB1000ø  PRINT"»»»M»»rF$,”l  I  OVERFLADEF  KUGLE” 
5  PRINT"»*»*»*H"F»;  ”3 1  OVERFLADE  HF  CYLINDER" 

10  PRINT”0»»»»»l'Ft;"3!  OVERFLADE  HF  KEGLE" 

5  PRINT"»»»M»»l"Ft;"7l  OVERFLADE  AF  KEGLESTUB" 

0  PRINT"0»M»»»I"F*;"8I  TILBAGE  TIL  HOVEDMENU" 

025  GETAt : IFAt=" "THEN3025 

30  R»ASC<Rt> : IFA<1330RA>140THEN3023 

40  A=H-132 : 0NAG0T03100, 3200, 3300, 3400,3025, 3023, 3025,20 

00  INPUT”  irrøFAD  I  US  AF  KUGLE  ”;R:SV=4*ti*R12 

lø  PR  I  NT  ’’  MD'v'ERFLADE  =  4  *  *  *";R;"II12  «";SV 

20  G0SUB20008 

00  INPUriMXRADIUS  HF  CYLINDER  "JR 
10  INPUT"IHØJDE  AF  CYLINDER  " ; H : SV=2*ti*R*H 
20  PRINT" MOVERFLADE  =  2  *  ti  *”;R;  ”*";H;  ”=’’;SV 
230  G0SUB20000 

øø  I NPUT " ZttMRAD I US  HF  KEGLE  ”;R 
lø  INPUT" MSIDELINIE  " , S : SV=S*it*R 
20  PRINT"MDVERFLADE  =";S;”#  tr  *“;R;  ”=";SV 
330  GCSUB20000 

400  INPUT'THMØVERST  RADIUS  “,TR 

10  INPUT"»OERST  RADIUS  ";NR 

20  I  NPUT  "MSIDELINIE  ";S:SV=S*ti*<TR+NR> 

30  PRINT" MOVERFLADE  =";S;"*  ti  *<";TR;  "+";NR;  ”11)  =’’;SV 
40  G0SUB20000 

00  PRINT"  , — ,  i — , — ,  m  t— m  riT 

010  PRINT"  I  tHI  1 1 4-1  H  1  f-r'  I 

020  PRINT"  ii-jim 

030  RETURN 

øøe  PRINT"KKTRVK  SRETURNI" :F0RI=1T0200:NEXT 

0210  GETAt : IrAt»CHRt< 131THENRUN 

20  5R I  NT ''TRYK  RETURN” :  F0RI=IT02øe :  NEXT 

0030  PRINT".TTTT  ;  GCT020000 

EPDV. 
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RIGTIGT 
DET  UAR 


SKAGEN  /37/40,'BYEN  ER  DR 

NMfiRKS  NORDLIGSTE  BY  HJØRRING 
/34/37/BYEN  Eft  VENDSYSSELS 
HOVEDSTAD  FREDERIKSHAVN  /S? 

/37 /GØTEBORG  -  » . 

BRØNDERSLEV  /34/35/UAR  I 

1600  EN  STOR  MARKE05BV  AALB 

ORG  /34/32/BYEN  HAR  L'ANHA 

RKS  ENESTE  TUNNEL  THISTED 

,  27/33 /-DET  ER  THYS  STØRSTE  BY 
LEMVIG  /23/27/ 

BYENS  SIDSTE  STAVELSE  ER  VIG 
STRUER  /25/26/B  OG  OS  H 

G VEDKVARTER  LIGGER  HER  VIBORG 

/30/26/VRR  I  16©0  JVLLAND 
5  HOVEDSTRD  HOBRO  /3 

4- 'OØ/LIGGER  INDERST  I  MARIAGER  F 
JORD  RANDERS  /34/26/GUDE 

NRAEN  UDLØSER  I  BYEN  GRE 

NAA  /39/25/HUNDESTED  -  . 

.  EBELTOFT 

0/38/23/ODDEN  -  . 

AARHUS  /SS .22 

/BYEN  ER  JYLLANDS  STØRSTE  BY 

SILKEBORG  0/30/23/S  ENESTE 

RACERBANE  -  7  DANMARKHERNING 

/27/23/DEN  KALDES  HAND5K 
ERNES  BY  RINGKØBING  / 

23/23/1.  STAVELSE  =  I  BRYLUP5SER 
MON I  SKJERN  /24/20/HAD 

S  FRA  KORSBAEK  KOH  HERFRA  VE 

JLE  /32/17/ALLAN  5IMON5 

EN  BOR  HER  E5BJERG 

/24/15/DANHARKS  STØRSTE  HAVN 
LIGGER  I  FREDERICIA  /32/1 

S /DANMARKS  MEST  MODERNE  BRYGGERI 
=  HADERSLEV  /30/ 11 /BYEN  LI 

GGER  I  SØNDERJYLLAND  RIBE 

/ 26/ 12 /DANMARKS  AELDSTE 
DOMKIRKE  =  7  TØNDER 

/26/B/DEN  STØRSTE  GRAENSEBY  =  . . 

....  SØNDERBORG  /32/B/HER 

VAR  CHRISTIAN  DEN  2.  FANGE  HID 


DELFART  0/33/14 /DEN  SIDSTE  ST 

AVELSE  =  FART  ODENSE 

/36/14/HER  LEVEDE  EN  BERØMT  F 
ORF ATTER  NYBORG  /3B/13 

/KORSØR  -  . 

SVENDBORG  /37/10/HERFRfl  G 

AAR  EN  BRO  TIL  T AAS INGE  RUDKØBI 
NG  /39/8/DET  ER  lRNGELRNDS 

STØRSTE  BY  NYKØBING  SJ  /4 

5/19/MORTEN  FROST  EP.  FØDT  HER 

KALUNDBORG  /41/16/DEN 

FEMTAARNEDE  KIRKE  LIGGER  I  HOL 
BAEK  /45/ 16 /BYEN  LIGGER  V 

ED  ISEF JORDEN  FREDERIKSVRE 

RK  /47/19/DANMARKS  STØRSTE  KRUDT 
VAERK  =  HELSINGØR  /50/20 

/HER  LIGGER  SLOTTET  KRONBORG 

HILLERØD  /49/19/HEP.  LIGG 

ER  FREDENSBORG  SLOT  FREDERI 

KSSUND  /47/18/HER  SPILLES  DER  V 
IKINGESPIL  ROSKILDE  / 

47/ 16 /HER  FINDES  ET  VIKINGEMUSEU 
M  KØBENHAVN  /50/17/DRO 

NN INGEN  BOR  I  DENNE  STORE  BY  SL 
AGELSE  /43/14/HER  LIGGER  S 

T.  PEDERS  KIRKE  RINGSTED 

/46/ 14 /BYEN  ER  EN  GAMMEL  VIK 
INGEBY  KØGE  /48/1 

4 /BYEN  LIGGER  NRER  KØBENHAVN 

N AEST VED  /46/11 /HERLUF5 

HOLM  KOSTSKOLE  LIGGER  I  KORSØR 

/4 1/13 /NYBORG  -  . 

VORDINGBORG 

/46/S/HER  LIGGER  G A ASET  A ARNET 

STEGE  /4S/B/BYEN 

LIGGER  PAA  MØN  NYK 

ØBING  F  /46/S/DET  ER  FALSTER 

S  HOVEDSTAD  RØDBY 

/44 /S /PUTT  GARDEN  - . 

NAKSKOV  .4 1 /& /HE 

R  LIGGER  ET  OMTALT  SKIBSVAERFT  R 
ØNNE  /55/4/DEN  LIGGER  P 

AA  BORNHOLM 
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iS3_!=R  iKf 

— BF  SI 

4.S  S  PRIriT 
iL~7%cj  PR  iN  j 

UdS  Is  » 

ioØ  PRINT 

—  1SI 

4.90  PRINT 


FOR  Nas®  TO  62 
PLOT  N/4.2 
PLOT  N / 1 
NEXT  N 

FOR  N»1  TO  4-2 
PLOT  ø/N 
PLOT  19/ N 
PLOT  62 /N 

r|hT ” PR IKN IMG  BF  ®V5R" 

LET  C  =  INT  (RMD*SØ>+1 
IF  0=50  THEN  GOTO  1500 
XF  R$  ( C , 15)  — "Ø”  THEN  bOTO  6 

FOR  N  =G  TO  10 
PLOT  R  CC)  ,  B  ( C) 

FOR  M  sØ  TO  5 
NEXT  M 

UNPLOT  RCCJ/BVCl 
NEXT  M 
LET  0=0  4-1 
LET  U=0 

PRINT  RT  2/ i; "BYNBUN  *?" 
INPUT  C* (11 

IF  C$ ( 11 < >B$ (Cl  THEN  GOTO  3 

PRINT  RT  2,1; "RIGTIGT  " ; BT 
DET  «JRR” 

FOR  N=5  TO  IS 

PRINT  RT  N,4.;  B$  (C/N-4-1 

NEXT  N 

IF  0=0  THEN  LET  P=P+lø 
IF  J=1  THEN  LET  P  =P  + S 
LET  R$ ( C , 151 =  "0" 

PRINT  RT  19 , 13;  P 
PLOT  B  fCl  (Cl 
GO 5 UB  1200 
GOTO  600 
PRINT  BT  2/1;" 

IF  0=1  THEN  GOTO  1300 
LET  U=1  _ 


■MSB 


. . ,  wBB  SLUTTER  V 
, 7;  "DÅTBGEOGPBFITIHE" 
1532  IF  P  =500  THEN  LET  O  $  =  " TRE TT 

EN  UOPNBBEL  IGT  **  _ 

1534-  IF  P<500  RND  P  >  4.60  THEN  LET 
O  *  = " ELLEVE  SMUKT  ”  _ 

1536  IF  P  i  =4.60  BND  P  >  4-00  THEM  LE 
T  0  5  =  "T I  PERFEKT'* 

1535  IF  P i siØØ  BND  P>320  THEN  LE 
T  G$="NI  GODT" 

1540  IF  P i =320  BND  P>270  THEN  LE 
T  O 5 =” OTTE  RIMELIGT" 

154-2  IF  P  <  *270  BND  P>200  THEN  LE 
T  O  5  =  ” SYU  NOGENLUNDE" 

1544  IF  P < =200  BND  P>150  THEN  LE 

r  05=" SEKS  DRBRLIGT"  _ 

154.6  IF  P  <  =150  RND  P)30  THEN  LET 
05=” FEM  S INDSOPR IUENDE" 

154.5  IF  P<=30  BND  P>0  THEN  LET  O 
$="TRE  PRØU  BTLBS" 

155G  IF  P=0  THEN  LET  Q$="NUL 
FRYGTELIGT" 

1550  PRINT  BT  9/7; "DU  FIK  ";0*V1 

TO  7) 

1570  PRINT  BT  1©,7;  0$ (3  TO  i 

1575  PRINT  BT  13,6;  "TfiST  ø  FOR  N 

YT  SPIL”;  BT  14./ 6;  "TBST  S  FOR  BT 

STOPPE" 

1530  IF  INKEY  $  =  "S "  THEN  STOP 

1590  IF  INKEY  $  =  " 0"  THEN  GOTO  160 

ø 

1595  GOTO  15SØ 
ISØS  FOR  N  =  1  TO  SØ 
1610  LET  R*(N,15) ■"  " 

1620  NEXT  N 

1630  CLS 

1540  GO 1  O  1 

2030  FOR  Nal  TO  SØ 

3010  PRINT  B $ (N) 

302G  NEXT  N 

3997  STOP 

3993  SflUE  "GE8” 

2999  GOTO  1 


m  m  I  dette  lille,  men  smarte  bud- 

[jjfj  m  m  ^^B  getprogram  har  du  mulighed 

I  I  I  for  at  indtaste  forskellige  ud- 

^^JB  ^^^B  B  gitter  og  dernæst  fd  din  Com- 

m  modore  64  til  at  lægge  talle- 
ne  sammen  og  komme  med 
et  flot  skema. □  p  Trap 

5  DIMB$a5),Ba5> 

lø  PR I NT "UB  I  FØRSTE  KOLONNE  SKRIVES  ART" 

2ø  PRINT"«  I  PINDEN  KOLONNE  SKRIVES  KR." 

3ø  PRINT  "WWW  TRVK  RETURN" 

4ø  GETA$  :  I  FA$OCHR$  C  1 3  >  THEN  4ø 
5ø  PRINT".!  BUDGET  =" 

6ø  PR  I  NT  "  MRRT  "  , ,  "  KR .  "  ,  "  I ALT  " 

7ø  PRINT" - 

8ø  FOR  T=1  TO  15 
9ø  INPUTB$a> 
løø  PRINT"!", , ; : INPUTBLD 
Hø  Ifl=Ifl+B(T) 

120  PRINT"!", ,, I ft 
13ø  NEXTT 

14ø  PRINT" - 

15ø  PRINT"  IALT" , , ,  IPl 
1 6ø  GETA$ :  I  FRSOCHR*  <  1 3  >  THEN  1 6ø 
17ø  PRINT"!  BUDGET 
18ø  PR I NT "NR  HRT" , , "KR. " , " 1RLT" 

19ø  PRINT" - 

2øø  FOR  T=1  TO  15 
21ø  PRINT  T;B$a> 

22ø  PRINT"!",  ,B(T) 

230  IS=IS+B<.T) 

24ø  PRINT"!", ,, IS 
25ø  NEXTT 

26ø  PRINT" - 

27ø  PRINT"!  I ALT",,, I S 
28ø  GETA$ :  IFA$OCHR$<  13  >  THEN  28ø 
29ø  PRINT"!«  HVILKET  NR.  ØNSKES  AENDRET" 

3øø  PRINT"«  C HVIS  IKKE  TASTES  ø>"  _ _ _ 

3101 NPUT " «  NR . " , NR  commo 

32ø  IFNR=øTHEN  17ø  dore 

330  PR I NT " «  ART " , , " KR . "  64  . 

34ø  PR I NT "  W"  B$ < NR  > , , B ( NR  >  - 

35ø  I  NPUT  "  «"  ,  B$  C  NR  ) 

36ø  PRINT"!" , , ;  :  INPUTB(NR)  :  IS=ø  I  \ 

37ø  GOTO  17ø  t-  •  - - 1  ■ 


SOFT  Special  23 


Mastermind 


Q'\ 


COMMO- 
DORE 
64 


m 


Mastermind  hører  til  marke-  Spillet  er  opbygget,  så  com-  iarver,  -  naturligvis  alt  efter,  te  kombination  er  ikke  nød- 
dets  mest  populære  spil.  1  puteren  selv  bestemmer,  om  hvor  dygtig  du  er.  Bemærk  i  vendigvis  forskellige, 
denne  udgave  passer  det  til  der  skal  gættes  fem  eller  seks  øvrigt,  at  farverne  i  den  skjul-  L.  M.  Laursen 

Commodore  64. 


20  P0KE53280 ,  U  ■  P0KE5328 1 ,  1 1 ; PRINT"."!!" 


30  PRINT"«MMWWUM«Ma  MASTERMIND 

40  PRINT"  WWKfiWllREøLER  J-N?" 

50  GETA*: IFA*=“"THEN5ø 
60  IFA*=''N"THENZ=6  :  GOTO  170 

70  PRINT"«#«#«««««««ttI:GMPUTEREN  UDFYLDER  *  FELTER  ME: 
80  PRINT"««--.  EkS.  SB  y  VTO  at  S!" 

30  PRINT" ««<UMB I NNT I ONEN  SKAL  DU  SAA  GÆTTE." 

100  PRINT"«#«’!!  VISER  DIG  HVOR  MANGE  FARVER  DU  HAR 
llø  PRINT"«#«!!  VISER  DIG  HVOR  MANGE  FARVER  DER  ER 
120  PRINT"  MEN  SIDDER  FORKERT." 

130  PRINT"««TRVK  PAA  alii.  " 

14ø  GETA*  IFA*="J" THEN 160 

150  GOTO 140 

160  Z=5 

170  S=1 

180  D=ø 

190  L«1 

199  REM********************»************ 

2øø  REM  OPRETTE  SKAERMB1LLEDE 

210  PRINT"  aTiMsM'IHSTERMIND^jTiWÆWsTsWsIiWjlATÆWit- " 

220  F0RX=øT024 
230  F0RV=1T09 

240  P0KE1024+20+V+<X*40>, 160:P0kE55296+2ø+V+<X*4ø> .0 
250  NEXTV • NEXTX 

260  I FZ=6THENPR  1  NT "kJU«lC.VAN=4'Tn" 


UDFYLDER  4  FELTER  MED  TIL-  FAELDIGE  FARVER.' 


PLACERET  RIGTIGT." 
RIGTIGE, ", 


270  PRINT"««#»HVID*2"  PRINT  "0RøD=3"  PRINT"liiRøN=6"  ARINT"3BLHH=7"  :PRlNT“!i»UL=8«' REM  NAESTE  GÅET 


710  GETA*  IFA$="“THEN710 
720  PR  I  NT  "71 

730  I F  A*=  "  N  "  THENPR I  NT  "  TIT  :  GOT 0400 

740  I  FA*=  "  J" THENPR  I  NT  “  TTl"  ■  G0T0800 

750  G0T0700 

8øø  REM  SAMMENLIGNING 

810  P=ø:F=ø 

820  F0RX=1T04 

830  IFF(X>=G(X)THENP=P+1  FXX<=FtX>*lø’G<X>=U<X>#løØ 

84ø  NEXT 

9øø  F0RX=1T04 

910  FGRV-1T04 

320  IFX=VTHEN94ø 

930  IFF(X>=G(V>IHENF=F+1  F<X)=KX;*lø  G(Y;=G<V>*løø 

940  NEXTY 
950  NEXTX 
960  FORX=1T04 

97ø  IFG<X»løøTHENG<X>*GTX)71øø 
980  IFF(X»løTHENF<X>=F(X)7lM 
990  NEXT 

999  REN********************************* 
løøø  REM  POINTGI VNING 

lølø  POKE 1 055+ I L*4ø ; , P+48 : POKE 1 057+ < L*40 ) , F+48 
1020  FORX= 1 T03 : P0KE55326+X+ ( L*4ø  > , l : NEXT 
1030  IFP=4THENF0RX=lT08øø-NEXI  GOTO 1200 
1099  REM******************************** 


28ø  PR  I  NT  "URIGTIG"  PR  I  NT  "PLACERET” 

290  PR  I  NT "  :«=R  I  GT  I G  “  -  PR  I  NT  "  F  ARVE  " 

293  REM********************************* 
300  REM  GENERERE  FARVER 
310  F0RX=1T04 

320  F(X)=INT <Z*RND< 1 )>+9-Z 
330  IFF<X)=4THENF<X>=2 
340  IFF<X>=5THENF<X)=3 
350  NEXT 

399  REM********************************* 

400  REM  INPUT 

410  PR I NT "M-øRSTE  FARVE  ?" : X=) : G0SUB500 
420  PRINT".TANDEN  FARVE  7"  •  X=2 :  G0SUB500 
430  PRINT""ITREDIE  FARVE  ?"  -X=3-G0SUB500 
440  PRINT "7FJERDE  FARVE  ?•'  :X=4 :  G0SUB500 
450  G0T0700 

500  GETA*; IFA*=""THEN5øø 
510  IFA*="2"THENG(X)=2 ; G0T0600 
520  IFA*="3"THENG<X>=3: G0T0600 
530  I FA*- " 6 " THENG <XJ=6  G0TG600 
540  I F A*= " 7 " THENG  <  X>=7 ■ G0T0600 
550  I F A*= " 8 " THENG <X,=8  G0T0600 
560  I FZ=6ANDA*=  "4"THENG<X>=4 : GOT0600 
570  G0T0500 

600  P0KE553 1 6+ <  X*2 )+ C  L*4ø  > , G< X  > - 1 
610  RETURN 

700  PRINT"nER  DU  SIKKER?  J-N" 


1110  L=L+2 

1120  IF<L+1)/2=13THENF0RX=1 T0800 : NEXT : G0T01200 
1130  G0T0400 

„„„  ™  H99  REM******************************** 

12øø  REM  ORIENTERINU 

1220  L=(L+1)/2C=D+L  R=D7S 

1230  I  FL=  1 3THENPR I  NT  "  TXK ,  LUDO  ER  NOK  MERP'DIN  STIL.  "  :  S=1  :  D=ø ;  G0T01300 
1240  PRINT"MMDU  KLAREDE  DET  I  "Li"  FORSØG." 

1250  1FS>1THENPRINT"««DI I  GENNEMSNIT  ER  " INT<R*løø)/løø, "  FORSØG" 

1260  S=S+1 

1299  REM******************************** 

1300  REM  NVT  SPIL? 

1310  PRINT"  «MU#««««««S««V IL  DU  PRØVE  IGEN?  J-N" 

1320  GETA*: IFA*=""THEN132ø 
1330  IFA*="J"THEN14øø 
1340  I FA*= " N " THEN 1 ø 
1350  GOTO 1320 

1399  REM******************************** 

1400  REM  SVAERHEDSGRAD 
1410  I FZ=6THEN 1 450 

1420  IFL>70RZ<4THENG0T0190 

1430  PRINT" »»-'AS  PAA,  NU  FAAR  DU  EN  FARVE  TIL." 

1440  Z=6F0RX=lT04øøø: NEXT  GOTO 190 

1450  IFL»13THENPRINT‘'*MQK,  MEN  KUN  MED  FEM  FARVER. "  F0RX=lT04øøø : NEXT 
1460  IFL=13THENZ=5 
1470  GOTO 190 


24  SOFT  Special 


ø  SP=3 

1  ø  PR  I  NT  "  34"  ■  P0KE53280 .•  ø  =  P0KE5328 1,0-  K=  1 924 :  P0KE650 , 1 28 :  L=  1 024 


2ø  L=L+1 ■ I FL= 1 1 43THEN4 1 

Den  kinesiske 

5ø  X=  1  :  V=1  ;  BX=i  :  D’t  -  1  M 

6®  ™E1024+X+4ø*V,Sl  I  mm  Du  skal  gennembryde  muren 

FOPT-l  tmfr  nf-'Tt'  ‘  I  I  I  ■  med  din  bold  og  bat.  Battet 

oø  FORT=  1  TU  1  ø  NEXTT  ■  ■  ■  %p|  ■  kaldte  frpm  vpd  nl  trvkkP  nd 

9ø  POKE 1 024+X+40*V ,  32  tramestrem  vea  rn  itvk-k  a  na 

løø  X=X+DX  ,  .  35 

1  1 0  PR  I  NT  "  >3?Il!M?MC/t?l:f:T:T:TjT;T:T:T:T:T:T:T:Ti;T;T:T;TiTiT:TiTiTiT;T:T;T:T:T:T:T:TiT:TiT:1"  i  PO 

12ø  GETR$ 

1 3ø  I F  fl^= "  L 11  THENPuk.EK  >  32 :  POKEK+ 1  .•  32  •  K— k+ 1 :  POKEK+ 1  .•  1 3b ;  F'OKEK  .■  1 96 
14ø  I  Ffi$= " H "  THENPOKEK ,  32  =  POKEK+ 1,32  =  K=K- 1  ■  POKEK+ 1  1 96 :  F'OKEK ,  1 96 
15ø  V-V+BV 

1 6ø  1 FX= 1 0RX=38THENDX=-BX • P0=P0+5 

1 7ø  I F V=  1  THENDV=-D V :  P0=P0+5  - - - - 

1 8ø  I FV=24THENBV=-DV ■ GOTOSøø 

1 9ø  1 FPEEK  <  1 024+X+4ø*V  >  =35THENBX=-BX :  F'0=PO+ 1 :  G03UB 1  øøø 
2øø  I FPEEK  < 1 ø24+X+4ø#Y >  =  1 96THENBV=-BY : PO=PO+ 1 ø : GOSUB 1 øøø : GOTO 1 øø 
21ø  GOTObø  .  /£>  .  9  x 

300  PR  I  NT "  ^?M?«M^»l?M?t=T:T:TiT:T:T:T:T:lB  0  L  BE  N  RftMTE  JORDEN  "  =  P0KE5328 1,2  =  3P=SP- 1 
3 1 0  FORG= 1 T 03øøø : NEXTG 
320.  IFSF'=øTHEN34ø 
33ø  GOTO lø  * 

34ø  PR  I  NT "  Tifl»MS?lrti!WOfl?l«WfsTsWsTit3Fl  FflR  BU  IKKE  MERE  FOR  DEN  lø  ØRE" 

35ø  PRINT "fMiU  FIK  ";PO; "POINTS" 

999  END 

1 øøø  P0KE54296 ,15: P0KE54277 ,15= P0KE5427S , 255 : P0KE54276 , 1 7 
1 ø2ø  P0KE54273 , 34 : P0KE54272 , 75  -£ 

1  ø3ø  P0KE54273 , 45 :  P0KE54272 , 1 26 
1 035  F0KE54273 ,51:  P0KE54272 , 1 98 


Du  skal  gennembryde  muren 
med  din  bold  og  bat.  Battet 
kaldes  frem  ved  at  trykke  på 
"a“  eller  "1",  som  også  er  sty¬ 
ring  til  højre  og  venstre. 

Janek  Majchei 


P0KE54277 , 15 : P0KE5427S, 255  =  P0KE54276, 17 
PQKE54272, 75 
P0KE54272, 126 
P0KE54272 , 198 


1 ø4ø  P0KE54276 , ø : RETURN 


Skærm¬ 

koordinater 


"PRINT  AT"  funktionen:  Dette 
program  viser,  hvordan  man 
kan  skrive  på  et  vilkårligt  sted 
på  skærmen,  på  en  nem 
måde.  VIC  20  har  som  be¬ 
kendt  hverken  en  "PRINT  AT" 
funktion  eller  en  "POKE" 
funktion. 

Palle  Nielsen 


VIC 

20 


1  REM  PRLLE  NIELSEN  -  -  - 

2  REM  PRINT  HT 

lø  PR I NT" : PR I NT "HVILKET  ORD  VIL  DU  SKRIVE  " : INPUTBf 

2ø  PR  I  NT  "HVOR  PRR  5KRERMEN.  BRUG  KOORDINATER"  :  INPUTX,  V  :  PRINT".!" 

30  IFV>23  ORVCØTHEN  5ø 

35  F0RR»1T0V ; PRINT : NEXTR 

40  IFX>220RX<øTHEN5ø 

45  PRINTTRB(X)B$ : G0T070 

5ø  PR I NT " KOORD I NATERNE  DU'R  IKKE":00T02ø 

7ø  FORW® 1T03000 : NEXT : OOTOlø 


SOFT  Special  25 


Cosmic  Killer  S 


Cosmic  Killer  er  et  Space  In-  det  er  maskinkode  data. 
vader-spil,  med  sprites,  tarver  Spillet,  der  kører  pd  en  CBM- 
og  lyd.  Ndr  spillet  indtastes  64,  er  selvforklarende, 
skal  du  være  omhyggelig 

med  DATA-sætningerne,  da  Niels  Lavsten 


ø  REM  LAVET  AF  NIELS  LAUSTEN 

1  DATA  24, 173/ 12/64. 105/ 1 , 141 / 12/64,205/ 13.64, 208/ 4ø, 234/ I  74, 10,64,234 

2  DATA  224,246/208/2, 162, ø, 189,8,65, 141 ,0/212/232, 183, ø,65, 141/1 

3  DATA  212/232, 189,0/65/141,13/64, 169, ø,  141 , 12,64,232,  142,  10.64,76,49,234 

10  FOR I =8  t4*6+256T08 14*6+256+56  READA  POKE I , A  NEXT 

11  REM 

12  REM  MUSIK-MASKINKODE 

13  REM 

19  POKE8 14*4+1 4, 1  P0KE8 14*4+ 15,0 
2ø  P0KE54272, ø • P0KE54273, 0 : AN=3 

21  POKE  54296,15 

22  POKE  54277,255 

23  POKE  54278,248 

24  P0KE54276, 17 

26  P0KE8 14*4+ 10,00  P0KE8 1444+ 11,65 

27  P0KE8 14*4+1 2, ØP0KE8 14*4+ 13, 1 

28  DATA  154,21 , 15, 100,20, 15, 154,21,15, 100,20, 15, 154, 21 , 15, 47, 16, 15 

29  DATA  63, 19, 15,37, 17, 15, 107, 14,30 

3ø  DATA  147,8, 15,205, lø, 15, 107, 14, 15,47, 16,30,205, lø, 15, 156, 13, 15,47, 16, 15 

31  DATA  37, 17,30,205, lø, 15, 154,21, 15, løø,2ø, 15 

32  DATA  154,21,15,100,20,15,154,21,15/47,16/15 

M  riATA  £  >  .  I  <3  .  i  S  .  67  .  i  7  .  i  s 

34  DATA  107, 14,30, 147,8, 15,205, lø, 15, 107, 14, 15,47, 16,30, 159,9, 15 

35  DATA  37,17,15,47,16,15,107,14,15 

36  DATA  154,21, 15, 100,20, 15, 154,21,15, 100,20, 15, 154,21,15,47, 16, 15 

37  DATA  63,19,15,37,17,15,107,14,30 

38  DATA  147,8, 15,205, lø, 15, 107, 14, 15,47, 16,30,205, lø, 15, 156, 13, 15,47, 16, 15 

39  DATA  37,1?, 3ø, 205, lø, 15, 154, 21, 15, løø, 2ø, 15 
4ø  DATA  154,21,15,100,20,15,154,21,15,47,16,15 

41  DATA  63,19,15,37,17,15 

42  DATA  107, 14,30, 147,8, 15,205, lø, 15, 107, 14, 15,47, 16,30, 159,9, 15 

43  DATA  37,17, 15,47,16, 15, 107, 14, 15 

44  DATA  47, 16, 15,37, 17, 15,63, 19,15, 154,21,30,216, 12, 15,227,22, 15, 154,21,15 

45  DATA63, 19,30,114,11,15, 154,21,15,63, 19, 15,37, 17,30,0 

46  FOR I « 1 6640T0 1 6640+246  READA  POKE I , A  NEXT 

47  f^EM 

48  REM  MELOD I -DATA 

49  REM 

67  DATA  I6ø,0, 185, 1 12, 7, 201 , 32, 24ø, 14, 201 , 96, 240, lø, 201 , 27, 144,6,169, 1 

68  DATA  141,6,64,96,200,192,40,144,230,169,0,141,6,64,96 

70  F0RI=24736T024736+33  READA  POKE I , A  NEXT 

71  REM 

72  REM  4  NEDERSTE  RÆKKE 

73  REM 

75  DATA  172,2,64,169, 192,133,251, 169,7 
77  DATA  133,252,234,234,234,177,251,201 
79  DATA1  32,240,48,201,96,240,44,201,2 7 

81  DATA  144,40,234,234,234,24, 165,251,105,40, 133,251,144,8,24, 165,252 
83  DATA  105,1,133,252,234,169,0,145,251 

85  DATA  24, 165,252, 185,212, 133,252, 173,5,64, 145,251 , 76,93,96,234,234,56 
87  DATA  165,251,233,40, 133,251 , 176, 7,56, 165,252,233, 1 , 133,252,234, 165 

89  DATA  252,201,3,208, 177,234,234, 152,24, 109,4,64, 168,284,3,64, 144, 154,96 

90  FOR I “24576T024576+ 1 05  READA  POKE I , A  NEXT 

91  REM 

92  REM  SPACE. I.  BOMBER 

93  REM 

løø  DATA  169,0,141,1,64,169,192,133,251 

110  DATA  169,7,133,252, 160,0,234, 177,251,201,0,240, 18,201,27, 144,14,201 
120  DATA  32,240, 10, 201 , 96, 240,6, 163, 1 , 141 , 1 , 64, 96,234, 192,0, 208,5, 160 
130  DATA  39,76, 11,89,234,56, 165,251,233,40, 133,251,176,8,56, 165,252,233 
14ø  DATA  1, 133,252,234,165,252,201,3,208, 195,96 
150  F0RI-22779T022779+74  READA  POKE I , A  NEXT 
160  REM 

170  REM  UNDERSØG  SIDERNE 
180  REM 

190  DATA  169,4, 133,252, 133,254, 169,1,133,251,169,8, 133,253, 160,255,208 
280  DATA  177,251,201,27, 144,38,281 ,32,248,26, 145,253, 169,32, 145.251,24, 165 
210  DATA  252,72, 105,212, 133,252, 133, 254, 1 77, 251 , 145,253, 184, 133,252, 133 
220  DATA  254,234,192,255,208,12,24,165 

230  DATA  252, 185, 1 , 133,252, 133,254, 76, 16,85, 192,231,288, 199, 165,252,281 
24ø  DATA  7,208,193,96 

258  FØR I =8 T4*5+256*5T08 14*5+256*5+79 'READA  POKE I, A  NEXT  REM  FLVT  TIL  VENSTRE 
268  REM 
278  REM 

288  DATA  1 62 , 3 , 202 , 1 73 , ø , 64 , 2ø 1 , 1 , 248 , 1 03 , 1 73 , 1 , 288 , 28 1 , 255 , 288 , 48 . 234 
298  DATA  165, 197,201 , 10,288,89,234, 173, 16,208, 74, 74, 144, 12, 173, 16,288,9 
3øø  DATA  1, 141, 16,208,234,76,72,88, 173, 16,208,41,254, 141 , 16, 208,234, 173 
318  DATA  2,208, 141,8,288, 173,3,288, 141 

328  DATA  1,208,234,234, 172, 1,288, 136, 14ø, 1 ,208,234,234,234, 192, 18,288, 14 

330  DATA  169,255, 141,1,208, 169,8, 141 ,8,64, 76, 133,88,234, 173,31,288, 74 

340  DATA  176,7,224,0,288,153,76,133,88 

35ø  DATA  169,1,141,0,64 ,76,80,97 

360  FOR I =22548T 022663  READA  POKE I , A  NEXT 

378  REM  BOMBE 

388  REM 

398  DATA  162,1,202.165,197,201,44,240,8 

400  DATA  201-47,  248, 57, 76, 136,86, 234, 173, 2, 288, 24, 185, 1 , 1 76, 27, 281 , 64 
410  DATA  240,7, 141,2,208, 76, 136,86,234, 173, 16,208, 74, 74, 176,79, 169,64, 141 
428  DATA  2,208,76,136,86,234,173, 16,288,9,2, 141, 16,208, 169,8, 141,2 
43ø  DATA  208,76,136,86,234,234,56,173,2,208,233,1,144,27,201.24,240,7,141 
440  DATm  2,208, 76, 136,86,234, 173, 16,288, 74, 74, 144,26, 169,24, 141,2,208 
45ø  DATA  76, 136,86,234, 173, 16, 288, 56, 233, 2, 141,16,288, 169.255, 141,2,288 
468  DATA  76, 136,86,224,8,208, 132,76,20,88 

478  F OR I »22038T 022830+ 1 28  READA  POKE I , A  NEXT ■ REM  FLYT  RUMSKIB 
488  REM 
498  REM 

5øø  DATA  169, 192, 133,251 , 169,6, 133,252, 169,232, 133,253, 169,6, 133,254, lbø 
518  DATA  ø  ,234, 192,63,288,7, 165,252,201,3,288. 1,96,234, 136,177,251,201 


528  DATA  27,144,31,201,32,248,27,234,234, 145,253, 169,32, 145,251 , 165,252 
530  DATA  72,24, 105,212, 133,252, 133,254, 177,251 , 145,253, 104, 133,252, 133,254 
548  DATA  234 , 1 92 , 8 , 288 , 208 , 1 65 , 252 , 234 , 233 , 1 , 1 33 , 252 , 1 33 , 254 , 76 , 1 8 , 83 
550  DATA  ø, 73 , ø , 1 43, 38 , 162 

560  FOR I °21248T02 1248+91  READA • POKEI , A  NEXT  REM  FLVT  SPACE I  NED 
570  PRINT "nul«»UUl»J  3H0EJRE  >/  .VENSTRE  'O  , SKYD  A'1' 

58ø  P0KE52, 48  P0KE56 ,48  P0KE5328 1,15- P0KE53280 , 6 
59ø  DATA  160,0,169,32,153,192,7,208,192 

6øø  DATA  41,288,248,234, 169, 191 , 133,251 , 169, 7, 133,252, 160, ø. 177,251,201 
61ø  REM 

62ø  DATA  0,208,48,234,234,169,32,145,251,168,40, 177,251 ,2øl ,32,208,29,234 
638  DATA  169,0,145,251,24,165,252,185 

64ø  DATA  212, 133,252, 168, 8. 177,251 . 16ø,4ø. 145,251,56, 165,252,233,212, 133 
658  DATA  252,234,234,201,96.240,223,234 

652  DATA  234, 165,251 , 56,233, 1 , 133,251 , 176, 190,234,56, 165,252,233, 1 , 133 

654  DATA  252,201 ,3,208, 178,96, 35,82,96 

66ø  FOR I »20992T 020992+ 1 02  READA  POKE 1 , A ■ NEXT 

670  REM  FLYT  S. I.  BOMBER  NED 

680  REM 

690  P0KE52, 48  P0KE56, 48 

7øø  FOR I =ø T097  READA  POKE I +8 14*5 , A : NEXT 

71ø  DATA  16ø,ø,24, 169,48, 133,52, 169,48,133,56, 173, 14,220, 41 ,254, 141,14 
728  DATA  220, 165, 1,41,251, 133, 1. 162, ø, 189,0,288, 157, 8,48, 232, 224, 8,288 
730  DATA245, 200, 173,29,80,24, 105, 1 , 141,29,88,173,32,80, 105,1.141,32 
748  DATA  80,192,  16  , 208, 223, 165, 1 , 9, 4, 133 

750  DATA  1,173. 14, 22ø, 9, 1 , 141 , 14, 22ø, 173, 24, 208, 41 , 24ø, 24, 105, 12, 141,24 

760  -DATA  208,169,0, 169,208, 141,29,80, 169,48, 141 ,32,80,96 

770  SYS  814*5  REM  FLYT  TEGN  TIL  RAM 

810  DATA169, 175, 141,217,48 

820  DATA169, 175, 141,218,48 

830  DATA169, 16  ,141,221,48 

848  DATA169, 4, 141,222,48 

858  DATA169.1, 141,223,48 

86ø  DATA169, 175, 141,233,48 

870  DATA169, 175, 141,234,48 

88ø  DATA169, 16, 141,237,48 

890  DATA169, 4, 141,238,48 

900  DATA169, 1,141,239,48,96 

918  FOR  I »832T0882  READA  POKE I . A  NEXT 

92ø  DATA169. 25ø, 141,217,48 

930  DATA169, 250, 141,218,48 

940  DATA 169, 4  ,141,221,48 

95ø  DATA169, 16, 141,222,48 

960  DATA169, 64, 141,223,48 

978  DATA169, 250, 141,233,48 

98ø  DATA169, 250, 141,234,48 

990  DATA169, 4, 141,237,48 

løøø  DATA169, 16, 141,238,48 

lølø  DATA169, 64, 141,239,48,96 

1 020  FOR I »896T0946  READA  POKE I , A  NEXT 

1030  DATA169, 4, 141, ø, 48 

1040  DATA169, 4, 141,1,48 

lø5ø  DATA169, 12, 141,2,48 

lø6ø  DATA169, 12, 141,3,48 

1070  DATA169, 12, 141,4,48 

lø8ø  DATA169, 12, 141,5,48 

1090  DATA169, 4, 141,6,48 

liøø  DATA169, 4, 141,7,48,96 

lllø  FOR I »49152T049 152+40  READA  POKEI , A  NEXT 

1120  DATA169, 1,141,0,48 

1138  DATA169, 1, 141, 1,48 

114ø  DATA 169, 12, 141,2,48 

1150  DATA169, 12, 141,3,48 

1160  DATA 169, 48, 141,4,48 

1170  DATA169, 48, 141,5,48 

1180  DATA169, 64, 141,6,48 

1190  DATA169, 64, 141,7,48,96 

12øø  F OR 1 =49 1 93T049 1 93+40  READA  POKE 1 , 8  NEXT 

1220  DATA169, 0, 141,8,48 

1230  DATA169,ø, 141 , 1 ,48 

1240  DATA169, 0  ,141,2,48 

125ø  DATA169, 125, 141,3,48 

1260  DATA169, 125,141,4,48  ~ 

127ø  DATA169.0, 141,5,48  —  ' — ^ 

1280  DATA169.0, 141,6,48 

1290  DATA169.0, 141,7,48,96 

13øø  F0RI=49234TO49234+40  READA  POKEI , A  NEXT 

1310  DATA169, 64, 141,0,48 

1320  DATA169, 64,141,1,48 

1338  DATA169, 48, 141,2,48 

1340  DATA169, 48, 141,3,48 

1358  DATA169, 12, 141,4,48 

1368  DATA169, 12, 141,5,48 

137ø  DATA169, 1 , 141 ,6,48 

1380  DATA169/1, 141,7,48,96 

139ø  F0RI*49275T049275+40  READA • POKEI , A  NEXT 

1 4øø  A= 1 024+38 ■ X= 1 52  V=53248  W= 1 024  V=229 

141ø  P0KE53270,PEEK<5327ø>0R16 

1420  POKE 53282 , 2 ; P0KE53283, ø 

1 43ø  FOR I =ØT07  READA  P0KE27*8+ I + 1 2288 , A  NEXT 

144ø  DATA63, 175, 175,255,21 ,4, 16,64 

1 45ø  FOR I »ØT07  READA  P0KE29*8+ I +12288, A  NEXT 

1 46ø  DAT A252 , 1 75 , 1 75 , 255 , 84 , 4 , 1 6 , 64 

147ø  REMSTOP 

1 480  FOR I =254*64T0254*64+63 - POKE I , ø  NEXT 
1 498  FOR I =254*64+ 1 T02ø+254*64STEP3  POKE 1,32  NEXT 
1 5øø  FOR I = 1 1 *64 TO 1 1 *64+63 : READA • POKE I , A  NEXT 
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1510  DATA  ø,ø,ø,ø,ø,ø,ø,ø,ø,ø,ø,ø,ø,ø,ø,ø,4ø,ø,ø, l?ø,ø,2, l?ø, 128 

1526  DATO  10,  170, 100,20,255, 104, 27, 255, 228, 26, 255, 164,26, 17ø, 164,26,170, 164 

1530  DATA  26, 150, 164,42,20, 168,42,20, 168, 40,21,40, 40,223,40, 32,247,200 

154ø  DATA  35,255,2øø,24ø 

155ø  REM 

1560  REM  SET  IRQ  VECTOR 
1570  REM 

1 58ø  P0KE56334 , PEEK <  56334 ) AND254 
1580  PQKE788, 14 • P0KE789, 86 
1600  P0KE56334, PEEK <56334) OR 1 
1610  REM 

1620  REM  SET  SPRITE  REGISTRE 
163ø  REM 

1640  PQKE V+ 1, 255  POKEV+ 16,ø 
1 65ø  P0KE53276 , 255  POKE V+2 1 , 255 
1 660  P0KE53285 , 2 : P0KE53286 , 8 

1 670  PØKE53287 , 4 : P0KE53288 , 6  POKE V+2 , 1 5ø  P0KE2040 , 254 ■ P0KE204 1,11 
1 68ø  F0RV=ØT0228 ■ POKEV+3 , V  NEXT 
1685  P0KE53279, ø 
1690  PRINT "3"; 

17øø  PRINT  "*HA  rt A  rtA  rfA  rtA  rfA  rtA  rtA  rtA  rfA  rfA«" 

1710  PRINT-IWA  rfA  HA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rfA«" 

1720  PRINT "SHA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtMT 

173ø  PRINT-JWA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA«" 

1 74ø  PR I NT" IH A  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA«" 

1750  PR  I  NT  *' UHA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA  rtA" 

1751  REM  ******  VARIABLER  SRETTES  ***** 

1 752  NR« 1 1 : SH < ø ) =49 1 52  SH < 1 >  =49 1 93  SH < 2 ) »49234 : SH<3)»49275FI »4ø36*4  AT-66 

1 753  P0KE2024 , 32  - POKEF I +5 , 1 3  POKEF I *3 , 39 : P0KE2 1 257 , 232 • POKE V+ 1 , 254 

1754  LE=PEEK<FI+14)  N-PEEK<FI+15) 

1755  IFN>7THENN=7 

1 756  I FN>ØTHENFOR I » 1  TON : SVS2 1 248  NEXT 

1 75?  FOR I -1  TO lø  PRINT  NEXT : PRINTT AB< 15)  "LEVEL  ",  LE  -  FOR  I  »1 T03000  NEXT 
1768  PRINT'Tl  ","«", 

1 76ø  POKE  21257,193  HV»2 1 248 :  AR=38  ■  POKE53279 ,  ø  POKEF  I ,  ø  POklE  V*  1 , 255 
1770  REM 

1780- REM  ******  EGENTLIGE  PROGRAM  ***** 

1790  REM 

1 792  I FPEEK <  53279 )AND2THENG0SUB2370 

1795  POKEFI+2, RND<0)*10 • P0KEFI+4,RND<0)*5+15 

1800  SN»SN+1  IFSN»4THENSN«ø 

1810  SVSSH<SN>  SK»SK+1 

1820  IFPEEK<FI)»lTHENG0SUB2ølø 

1830  SVS  20992  SYS  24576  SVS  HV 

1837  I FPEEK < 53279 )RND2THENG0SUB237ø 

1840  I FPEEK  <  F I ) ■ 1 THENG0SUB20 1 ø 

1850  I FSK  » 1 THENS VS896 

1868  IFSK=2THENSVS832  SK«ø 

1 86 1  POKEF I +2 , RND  <  ø ) * 1 ø  POKEF I +4 , RND  <  ø ) *5+ 1 5 

1862  SVS  20992  SVS  24576 

1 865  I FPEEK  C  53279  > AND2THENG0SUB2370 

1870  SVS  22779  REM  U. SIDERNE 

188ø  I  FPEEK  (  F I  «■  1 )  »ØTHEN 1 780  REM  ******* 

189ø  REM 
1300  REM 
1905  REM 

1310  SK«ø  HH=ø  P0KE2 1257, 232 
1320  I FPEEK  <  F I ) = 1 THENG0SUB20 1 ø 
1930  SVS  21248  N=N+1  REM  NED 
1940  SVS  24736 : IFPEEK<FI+6)»1THEN1980 
195ø  P0KE2 1257, 193 

1360  IF  HV*2 1 248THENHV»2 1 760  AR= 1 : GOTO 1 780 
1970  HV=2 1 248  AR*38- GOTO 178ø 
1380  SVS  21248  SVS  21248 


1930  PRINT"«" , TAB< 10) , "S8DU  BLEV  I NVADERET " ; FOR I » 1  TO 1 0  GE T A*  NEXT  GØT 02500 
2øøø  REM 

2010  REM  *****  SKVD  “R  SPACE. I.  ***** 

2ø2ø  REM 

2ø3ø  BX»PEEK<V)+(PEEK<V+16)AND1 >*256  BV*PEEKt V+l ) 

2ø4ø  Xl*INT<<BX-17)/8)  :  V1  =  INT< <.BV-45)78)  :  TT=0 
2060  IFV1<NTHENV1=N 

2070  g F  <  V 1 >NR+N ) THENPOKE V+ 1,255  P0KE53279 , ø  POKEF I , ø - RE  TØRN 
2ø9ø  x*W+X 1 +V 1 *4ø  Z2»2 
2091  REM 
2032  REM 

2100  Q 1 =PEEK <  Z )  G2=PEEK  <  Z2 ) 

2105  IFQl=øTHENPOKEV+l , 255 • POKEF I , ø  RETURN 
21101 FQ2=øTH£NP0KE V+ 1,255- POKEF I , ø  RETURN 
2115  I FQ 1 032ANDQ 1 036THEN2 1 25 
2117  1  FQ2032ANDQ2096THENZ=Z2  •  G0T02 1 85 
212ø  Z=Z-1  Z2=Z2+1  TT»TT*1 

2121  IFTT=3THENV1*VH-1  :G0T0203ø 

2122  GOTO  2100 

2 1 25  I  FAR»38ANDG2032ANDQ2096THÉNZ=Z2  •  G0T02 1 85 
2185  AT=AT-1 

2 1 9ø  POKEZ , 32 • POKEZ* 1,32  POKEZ- 1 , 32 

2210  IFAT=øTHENPuKEFI*14,PEEK<FI*14)*l  P0KEFI+15,PEEK<FI*15>*1  G0T01630 
2220  POKE V* 1,255  P0KE53273 , ø • POKEF I , ø  RE  TURN 
2230  REM 
236ø  REM 

237ø  REM  ********  RUMSKIBE  TILBAGE  **** 

2380  REM 

2330  AN» AN- 1 : J =0  P0KE54276 , 33 
24øø  FOR I = 1 T 024 • SVS20992  NEXT 
2410  IF  N>3THEN  J=ø 
2420  IF  N<=3THENJ=15 
2430  PRINT"«", 

2440  FORI=øTOJ  PRINT  NEXT 

245ø  PR  I  NT  "i»  ANTAL  RUMSKIBE  TILBAGE  "  ,  AN 

246ø  F0RI=1T04000  NEXT 
247ø  FOR I =ØT039  POKE I+W+<  J+l  ,»*4ø,32  NEXT 
2475  I FAN=ØTHEN250ø 

2480  POKEV+1 , 255  POKEF I , ø  P0KE53279, ø  P0KE54276, 1 7 : RETURN 
2500  PRINT"«mIjAME  OVER"  F0RI*1T01ø  GETA*  NEXT  P0KE54236,ø 
2510  PRINT"!  DU  NA AE DE  TIL  LE VEL", LE 
2520  INPUT"«EF  SPIL  TIL  <J/N)  " ,  A* 

2530  IFA*0"J"ANDA*0MN"THENPRIHT"'T1"  GOT025ZØ 
2540  IFA*=" J"THENRUN 
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Subflight  er  et  spil  til  ZX81 
(16K).  Du  er  ombord  i  et  rum¬ 
skib ,  som  flyver  gennem  en 
tunnel.  Det  er  nu  din  opgave 
at  flyve  over  flest  mulige  +  og 
ø,  men  undgå  -  og  uden  at 
ramme  ind  i  det  sorte. 

Du  kan  selv  konstruere  din 
egen  bane  i  linierne  20-36. 
Programmet  SAVE ’s  ved  GO¬ 
TO  700,  og  er  i  øvrigt 
selvstart  ende.  O 

Jørgen  Bundgaard 


Subflight  El 


PEM  "S U3FLIGHT" 
LET  HP=0 
GO  SLIB  500 
LET  P=0 
I  LET  B=ll 
'  LET  5T.=0 
I  LET  PL=0 
I  LET  M=0 
>  LET  B  $="99*  + 

i- *®KTf+ini 


30 


■  •  + +  +il 

F?  + 

un  ■  sk 

b+  +  +  *i 
»  +  + 


tnnB*-  -  * 

•  +■ 

tun«7  *ji 

i  *  +  +  -*  +  *■. 


s-  +  + 

.ET  -•* 


14.0  IF  P  =  128  THEN  GOTO  300 
1SØ  IF  P  =23  THEN  LET  3T=5T+1 
160  XF  P=21  THEN  LET  PL=PL+1 
170  IF  P=22  THEN  LET  H=H  +  1 
aøø  GOTO  50 

300  LET  P=PL+  CST*10)  -  (M*SJ 
310  PRINT  RT  17,*; "DINE  POINT." 
;  P 

320  IF  P  >  HP  THEN  LET  HP=P 
330  PRINT  RT  19 , 4.;  "HØJESTE  POXN 
T :  "j  HP 

34-0  PRINT  RT  21/6;  "NYT  SPIL  (J/ 
N)  •' 

3SØ  IF  INKEY*="J"  THEN  GOTO  10 
360  IF  INKEY$="M"  THEN  STOP 
370  GOTO  350 
500  CLS 

NT  RT 


EPL IGHT 
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Juveler 


t  BORDER  ø:  PAPER  0:  INK  7:  BR1GHT  1: 
CLS 

6  LET  h=2øøø 

10  FOR  (=0  TO  5ø:  BEEP  . 005, I +C 10*RND) 

:  NEXT  ( 

20  FOR  J=2  TO  7:  PRINT  AT  10, 3P  RESTO 
RE  20:  FOR  f=ø  TO  26:  READ  r:  PRINT  INK 
JiCHR*  r ; :  BEEP  .01,1:  NEXT  I 
30  DATA  127,128,75,65,82,83,84,69,78,1 
28,75,78,79,66,76,65,85,67,72, 128,45,  128 
,49,57,56,52,46 
40  NEXT  J 

50  INPUT  "SUAERHEDSGRADCØ-20J" ;o 
55  1F  o>20  OR  o<ø  THEN  GO  TO  50 
60  CLS 
70  LET.sc=ø 

80  LET  1=3  V  jy 

100  LET  b  =  15  .rOT-v 

101  LET  4  =  18  f 

102  LET  1=500  I  6-  \  tf 

103  LET  d=0  kl  i 

104  LET  a=ø  r)å 

500  REN 

501  REN  ~4~  ”  GRAPH.  '4~ 

502  REN 

503  REN  ~e~  =  GRAPH.  'e= 

504  REN 

505  REN  ~r~  =  GRAPH.  =r~ 

506  REN  //)<? VlJ 

507  REN  =  GRAPH.  ~t  +  /¥i{ 

508  REN  [®\  JBfcf 

509  REN  -u-  =  GRAPH.  'U~  VJp. 

510  REN  VS.  I  JÆ 

511  REN  -1=  =  GRAPH.  =  l~ 

512  REN  ”/ 

513  REN  =  GRAPH.  ~o~ 

520  REN 

600  IF  o  <10  THEN  RESTORE  600:  FOR  r>=0 
TO  7:  READ  r:  POKE  USR  "o  '+n,r  :  NEXT  n 
700  DATA  0,0,0,124,254,124,56,16 
1000  RESTORE  1000:  FOR  J  =  l-  TO  16:  READ  r 
:  READ  s:  READ  u : :  FOR  l=r  TO  s:  PRINT 
INK  4  jAT  u,fi*"q":  BEEP  .005,  C  NEXT  1:  N 
EXT  J 

1010  DATA  5,15,5,20,30,5,0,5,7,10,20,7,0 
, 15,9,20,30,9,0,5, 11,10 

1020  DATA  20,11,25,30,11,0,5,13,15,30,13 

,3,20, 15,25,30, 15,ø, 10 

1030  DATA  17,15,25,17,0,30,19 

1200  FOR  1  =  1  TO  29:  PRINT  AT  0, 1  i  INK  6! 

:  BEEP  .005,1:  NEXT  I 
1210  PRINT  AT  1,0;  INK  6l"uSC0RE:ø  L 
1*0 : 1  ■  I  TID:  t” 

1300  FOR  (  =  1  TO  29:  PRINT  AT  2, 1  i  INK  6i 

"r" :  BEEP  .005, I :  NEXT  f 

1310  FOR  (  =  1  TO  29:  PRINT  AT  20, 1  i  INK  6 

; “e " :  BEEP  .005, I :  NEXT  1 

1360  PRINT  INK  6  JAT  21,0i"u":  FOR  1  =  1  T 

0  29:  PRINT  AT  21,17  INK  6;''  ” :  BEEP  .00 

5, I :  NEXT  f:  PRINT  INK  6!AT  21,30i"t“ 

1380  PRINT  AT  21,1!  INUERSÉ  li  INK  6;"0N 

GANG :  HI :  o : " 

1399  INK  7 

1400  FOR  1=0  TO  6:  READ  r:  READ  s:  READ 
u  .'••PRINT  INK  CRND+53  !AT  r  ,  CRND*s  J  tu  !"o" 

:  LET  *=»+1:  BEEP  .01,1*2:  NEXT  1 

T410  DATA  4,8,6,6,8,11,8,13,1,10,8,11,12 
,3,1, 14,8, 11,16,8,1 

1500  IF  o>l  THEN  PRINT  INK  CRND+53  jAT 

18, (RND*123+1 j"0" :  LET  a=a+l 

1510  IF  o>2  THEN  PRINT  INK  (RND+51 !AT 

18, (RND*121+17i"o":  LET  a=a+l 

1520  IF  o>3  THEN  PRINT  INK  (RND+51 JAT 


i/\ 


16, C  RND*8 1  + 1 6 ; " o " :  LET  a=a+l 
1530  IF  o>4  THEN  PRINT  INK  (RND+51 jAT 
12, (RNDX131+16 i "o" :  LET  a=a+l 
1540  IF  o>5  THEN  PRINT  INK  C RND+51 jAT 
8, CRN0*8)+21 j"o" :  LET  a=a+l 
1550  IF  o>6  THEN  PRINT  INK  C RND+51 jAT 
4, (RNDX81+21 i"0  " :  LET  a=a+l 
1560  IF  o>7  THEN  PRINT  INK  (RND+51 ;AT 
6, CRND*31+1 J "o " :  LET  a=a+l 
1570  IF  o>8  THEN  PRINT  INK  (RN0*31 iAT 
10, CRND*31+1 !"o" :  LET  a=a+l 
1580  IF  o>9  THEN  PRINT  INK  (RND*31 JAT 
10, (RND*31+26;"o" :  LET  a=a+l 
1590  IF  o>10  THEN  PRINT  INK  CRND*3] ;AT 
14,CRND*31+26;"o":  LET  a=a+l 
1600  IF  o>ll  THEN  LET  t=t-(o*løl 
1610  IF  t  <300  THEN  LET  t=30ø 
1620  IF  o>8  THEN  RESTORE  1600:  FOR  n=ø 
TO  7:  READ  r:  POKE  USR  "o,,+n,r:  NEXT  n 
1650  DATA  0,146,84,56,254,56,84,146 
1900  PRINT  INUERSE  li  INK  6 JAT  21, 15  ih 
1980  PRINT  INUERSE  li  INK  6 iAT  1, 37+1  i" 

2000  PRINT  INK  6i  INUERSE  1  i AT  43  26 i l  i" 

2010  LET  t=t-l. 

2500  PRINT  INUERSE  li  INK  6 i AT  21,8;o 
2510  PRINT  INUERSE  li  INK  6;AT  l,7;sc 
2520  PRINT  INUERSE  li  INK  6;AT  21,26;a- 
o  ; "  •' 

2999  PRINT  AT  q,b  i  '  “ 

3000  LET  b=b  +  (  INKET$="3‘'  l-( INKEY*=" 1 " 1 

3010  IF  b  <0  THEN  LET  b  =  30 

3011  IF  b>3ø  THEN  LET  b=0 

3100  IF  SCREEN*  (4  +  1, bl="  "  AND  1NKEY*<> 
"0“  THEN  LET  4=4+1 

3200  IF  SCREEN*  Cq,b)<>"  "  THEN  BEEP  .0 
1,4+b  +  lø:  LET  d=d  +  l  :  LET  sc=sc+25 
3300  IF  t=0  THEN  :  LET  1=1-1::  POR  (=69 
TO  -60  STEP  -l:  BEEP  .01,1:  NEXT  I :  IF  I 
>0  THEN  :  CLS  :  GO  TO  løø 
3310:  IF  l=ø  THEN  CLS  :  GO  TO  7øøø 
3400  IF  d=a  THEN  LET  o=o  +  l  :  LET  sc=sc  +  l 
Øø:  CLS  :  GO  TO  100 

3990  IF  SCREEN*  Cq-l,bl  =  ''  "  AND  INKET*=“ 
ø"  THEN  LET  4=4- 1 
4000  PRINT  AT  q,b i" i " 

6000  GO  TO  2000 

7000  LET  o*="SLUT  OPGØR" 

7010  LET  b*  =  " _ " 

2050  IF  sc>h  THEN  LET  h=*c 

7100  FOR  1=10  TO  20:  PRINT  INK  (1-10172 

iAT  10, løia*;  OUER  liAT  lø.løib*:  BEEP  . 

005, 1 :  NEXT  1 

7150  PRINT  AT  15,0 

7200  PRINT  "SCORE  =",sc 

7210  PRINT  "TIO  =”,t 

7220  PRINT  "OHGANG=" , o 

7230  PRINT  "  o  ="  ,  a-d 

7300  PRINT  »li"  UIL  DU  PRØUE  IGEN  ?  (J 

/-N'M)  " 

7400  IF  INKEY*="n"  THEN  GO  TO  7450 

7401  IF  INKEY*=" j"  THEN  GO  TO  7500 

7402  IF  INKEY*="m“  THEN  GO  TO  7600 

7410  BEEP  . 01 , RNDX60 

7420  GO  TO  7400 

7450  CLS  :  PRINT  INUERSE  1  iAT  11,05''  O 
U  UILLE  GERNE  SLUTTE  SPILLET.  ":  BEEP  .5 
, 10:  STOP 

7500  CLS  :  PRINT  INUERSE  1 iAT  11, øi" 

DU  UILLE  GERNE  SPILLE  IGEN.  “ :  BEEP  .5 
,30:  CLS  :  GO  TO  10 

7600  CLS  :  PRINT  INUERSE  1 iAT  11, Øi" 


Forbryderen  "No  Good"  har  i 
løbet  at  sit  lange  liv  røvet  op 
til  tiere  juveler,  som  han  har 
gemt  i  flere  etagers  grotte. 
Detektiven  (dig)  har  fundet 
grotten,  og  ved  hjælp  at  en 
en-mands-jet  torsøger  du  at  tå 
tat  i  juvelerne  tør  tiden  løber 
ud.CI 

Karsten  Knoblauch 


DU  UILLE  MAASKE  SPILLE  IGEN  " 

7610  PRINT  INUERSE  1 ;AT  12, Øi"  SAA  JEG 
TRAF  UALGET  FOR  DIG...  " 

7620  IF  (RND*101<5  THEN  LET  d*  =  ''IKKE  ■: 
GO  TO  7622 

7621  LET  d*="" 

7660  PRINT  INUERSE  1 iAT  15,0;"  DU  UILL 
E  •' id*i''SP!LLE  IGEN...," 

7700  IF  d*=" IkKE  "  THEN  BEEP  .5,10:  STO 
P 

771ø  IF  d *= '"'  THEN  BEEP  2.5,30:  CLS  :  G 

O  TO  10 

8000  STOP 

8888  RESTORE  9000 

8900  BORDER  0:  PAPER  0:  INK  7=  BRIGHT  1: 
CLS 

9000  FOR  n=0  TO  ?■  READ  r:  BEEP  .01,n:  P 
OKE  USR  "q"+n , r :  NEXT  n 
9010  DATA  0,126,254,255,255,239,247,102 
9020  FOR  n=0  TO  7:  READ  r:  BEEP  .01,n:  P 
OKE  USR  “ e " +n , r  :  NEXT  n  • 

9030  DATA  0,0,0,0,16,116,254,255 

9040  FOR  n=0  TO  7:  READ  r:  BEEP  .01,n:  P 

OKE  CISR  "  r  "  +n ,  r  :  NEXT  n 

9050  DATA  255,254,116,16,0,0,0,0 

9060  FOR  n=0  TO  7:  READ  r:  BEEP  .øl,n:  P 

OKE  USR  " t " +n , r :  NEXT  n 

9070  DATA  1 92, 234 , 224 , 240, 192,224, 192, 12 
8 

9080  FOR  n=0  TO  ?:  READ  r:  BEEP  .øl,n:  P 

OKE  USR  "u"+n»r!  NEXT  n 

9090  DATA  3,7,7,15,3,7,3,1 

9100  FOR  n=0  TO  7:  READ  r:  BEEP  .01, n:  P 

OKE  USR  Hl"tn,r:  NEXT  n 

9110  DATA  24,60,24,60,90,24,36,102 

9120  FOR  n=0  TO  7:  READ  r :  BEEP  .01,n:  P 

OKE  USR  "o " +o , r  :  NEXT  n 

9130  DATA  0,0,0,124,254,124,56,16 

9300  FOR  f  =0  TO  77:  PRINT  INK  CRND*6)  +  1 

; " JUUELER  BEEP  .01,RND*60:  NEXT  f 

9400  CLS  :  PRINT  FLASH  1 JAT  0,10J"INSTR 

UKT IONER" 

9410  PRINT  AT  2, 0 5  FORBRYDEREN  -NOGOOD- 
HAR  I  LØBETAF  SIT  LANGE  LIU  RØUET  OP  TIL 
PLERE  JUUELER  SOM  HAN  HAR  GEdT  I  EN 
PLER-ETAGES  GROTTE." 

9420  PRINT  AT  7, 0 ; "DETEKT IUEN  Cd  i  9  3  HAR 
PUNDET  GROTTEN  , OG  UED  HJAELP  AF  EN 
EN-dANDS-JET  FORSØGER  HAN  AT  FAAFAT  I 

JUUELERNE  FØR  TIDEN  LØBER  UD . " 

9430  PRINT  INUERSE  1  jAT  12, ØJ"  NAAR 
dAN  KOddER  TIL  CA.  OdGANG  NR. 9 

,  KAN  DER  FOREKOddE  -SORTE^ 

IUUELER 

f DE  KAN  IKKE  »ES.  ) 

9450  PRINT  "  DU  STYRER  dED : " 

9460  PRINT  :  PRINT  INUERSE  lj"  1=UENSTR 
E  3=HØJRE  0=0P  " 

9490  LET  oi=RNO*30 

9500  PRINT  INK  C&/5DM;  INUERSE  1  JAT  21 

,ØJ"  TAST  -P-  FOR  AT  SPILLE  JUUELER  " 

9551  LET  A=a+10 

9560  BEEP  . 0 1 , a  :  BEEP  .005, 4 

9600  IF  INKEYSO "p"  THEN  GO  TO  9490 

9700  RUN 

9999  SAUE  "JUUELER"  LINE  9888 


Q-Bert 


1 ø  PR I NT " IT' : P0KE5328 1 , ø : P0KE53280 , 2 


20  PRINT : PRINT" 3 
3ø  PRINT"  ST  Hl 

40  print"  sm 

5ø  print"  am  aa.' 
6ø  print"  am  aa-' 

7ø  FOR 1=0101 : PRINT" 
8ø  PRINT"  !iia  Bal  I 


Vor  ven  Q-BERT  skal  styres 
rundt  på  de  49  trin,  som  Che- 
ops  pyramide  består  af.  Hver 
gang  han  har  været  på  en 
firkant,  bliver  feltet  farvet.  For 
at  undgå  Mumiens  forban¬ 
delse,  skal  du  få  farvet  alle 
felter.  Et  superspil  titCommo- 
dore  64!!! 

Jesper  Hansen 


9ø  PR I NT "n  na 

løø  PR  I  NT  "H  Hia 
llø  PR I NT" n  na 
120  print "n  na 
130  PR  I  NT  "H  Hia 
140  PR  I  NT  "n  Hia 
150  PRINT"  H13 
160  PRINT"  Hia 
170  PRINT"  Hia 
180  PRINT"  Hl 
190  PRINT"  ! 
200  PRINT" 

210  PR I NT "H 


aa  ! 
■a  i 
aa  i 
aa  i 
aa  i 
aa  i 
aa  i 


Hi  a  a  a  i 
Hia  srar 

na  ww\ 
Hi  a  ar 
Hia 

na  i 


la  aa  i 
na  a: 
na  ! 
na 
Hia 
na 
na 
Hia 

sr  an  ma 


na  aa 

a  a  i  m  ^ 

a  a  i  hi  ^ 
aa  i  fi’sswi 
aa  i  hj  $  æs 
a  a  i  hi  æ  $ 
a  a  i  hi  sssæg 
aa  i  " 
a  aa  i  " 
hi  aa/" 


"  :  NEXT I 

%  mm  m  m  mm 
m  m  b  b 


? 

W' 

i mm 

g  ® 

B 

B" 

m 

®.  m 

& 

B" 

%  M 

m  Mi 

% 

w 

é 

%  b  m 

m 

m " 

■a/" 

M(C)  EV  JESPER  HRNSEN  1984" 


2øø  print"  na  aa/  na  w 

210  PR  I  NT  "H  na  bb/u 

220  GQSUB1 13ø 

290  S I  ==14272  :  FOR  I  =5T0 1 9STEP7 :  POKES I  + 1 ,  1 5  :  POKES I  + 1  + 1 , 255  :  NEXT  I  :  F'OK.ES  I  +24 ,  1 5 
240  P0KE53280,  2 :  PR I NT "3"  :  F0RI  =  1T08 :  PRINT :  NEXT 
250  PRINT" SfSWIL  DU  SPILLE  MED"  : PRINT 

260  PRINT"SnjaiOVSTICK<PORT  1)  ELLER  maRSTATUR"  'PRINT  I 

270  Bf*""  ^ - 

280  I FPEEK  C  203 )  =22THENP0KE  1 98 , 0 :  G0T0320 

280  IFPEEKC2ø3)*340RPEEK(2ø3)=6øTHENBf="J"  :  G0T0380 

3øø  B=D+1  :  IFD>500THEND*0 :  GOTQlø  1  %mm 


J" : G0T0380 


310  G0T0280 


320  PRINT "3" 

330  PR I NT : PR I NT " aHV I LKEN  TASTER  SKAL  VflERE : " : PR I NT 

34ø  I NPUT " -VENSTRE " ; LO* : PR I NT 

350  I  NPUT  "  -OP  "  RO* :  PR  I  NT 

360  I NPUT " -NED " i  LU* : PR I NT 

37ø  I NPUT " -HØJRE " i  RU* 


37ø  I  NPUT "  -HØJRE "  i  RU*  ^ 

380  PR  I  NT  "  21"  :  L=0 :  Ffl=3  :  P=0  :  RU=48 

39ø  B= 1 1 6ø : F=55432 : F0RA*0T06 : GOTO 1030  I  jn 

4øø  FORA 1 =ØT06 ■ H=H*79+A 1 *42 

41ø  FOR  I  =øT02 :  P0KEF+H+ 1,1'-  NEXT  I :  POKEB+H ,  233 :  POKEB+H+ 1 , 224  :  POKEB+H+2 ,  1 05 
42ø  F0RI=øT01 :  POKEB+H+I+40..  224  :  POKEF+H+I+40, 2 :  NEXT  I  :  NEXT  Al ;  NEXTH 
430  FØR  I  =4T0 1 8STEP7  :  POKES  I  + 1  .•  0  :  NEXT  I :  RESTORE 

440  PR  I  NT "  SCORE  :  "  ,  P  .-"HI  SCORE  ■  "  ,  RE  \ 

45ø  B=1 163 : F=55435 : F0RA=øT06 : P0KEF+A*42, 1 : P0KEB+A*42, 101 ■ NEXTH 
460  B*1454  :  F=55726  :  F0RA=ØT06 :  P0KEF+A*79..  1  :  F'0KEB+A*79, 78 :  NEXTH 
47F1  b=1434  :  F=55766  :  F0RA=ØT05 :  P0KEF+A*79,  1  :  P0KEB+A*79,  101  :  NEXTH 


480  A=  I  NT  C  RND  C  T  I?  *7>  :  A 1  =  I  NT  C  RND  C  T I  >  *7  >  :  S*  1 1 6 1  +A*79+A  1*42  :  Q=A  :  Q1=A1 
490  POKES , 222 : POKES-40 , 1 7ø : I FA=øTHENP0KE3~4ø ,101 


500  SF=S- 1024+55296 

5 1 0  FOR  I  =SF- 1 T0SF+ 1  :  F'OKE  I ,  FA :  NEXT  I 

52ø  P0KE53280, FA 

530  L=L+1 : IFL>løTHENL=lø 

54ø  F0RI=1T0L 

mø  lø  <  n = i  nt  c:  rnd  c  t  i  >  *7  y  ■  l  i  c  i  > = i  nt  <  rnd  c  t  n  *7  >  =  l  a  )= 1 1 6 1  +l.ø  c  i  >  *79+l  kd  *42 

560  I  FPEEK  (L(I))  O224THEN550 

57ø  F'OKEL  C  I  ,  209  :  Pø  (I  >  =Lø  Cl  >  :  P 1  C  I  > =L  1  C  I  )  :  NEXT  I 

580  IFBf="J"THENlø50 

?=i8ø  GETA* :  I  FA*=  "  "  THEN640 

600  I Ffl*=LO*THENA 1 =R 1 - 1 = G0T0800 


610  I FA*=RU*THENA 1 * A 1 + 1 = G0T0800 


30  SOFT  Special 


■HCT 


620  IFR$=R0$THENR=R-1 = G0T0800  _  _  _ 

630  IFR$=LU$THENfl=R+l  :  G0T0600  /— 

64ø  I  =  I  + 1  :  I F I  >L.THEN  1  =  1  I  COMMO  I 

650  IFPøC  I  >=ØTHEH2=3 :  G0T0700  I  DORE  I  Mffii 

660  IFPøC  I  >=6THEHZ=2 :  G0T0700  I  aa  I  ' " 

67ø  I FPI  C I )=ØTHENZ=1 : G0T0700  1J  f— - 

680  I FPI  C  I  >=6THENZ=ø :  G0TQ700 

680  2= I NT  C  RND C  T I ) *4 ) 

7øø  IFZ=3THENLØCI)=LØCI)+1 =G0TG74ø 
7 tø  I FZ=2THENLØ C  I > =Lø  <1 > - 1 : G0T0740 
720  I F2= 1 THENL 1 Cl  > =L 1 Cl  >  + 1 : G0T0740 
730  L1CI)=L1CI>-1 

740  POKES 1 , 207  :  POKES  1  +  1,34:  POKES I  ±6 , 8ø :  POKES I  +5 ,  ø  :  POKES  1+4,17 
75ø  L  C  I )  =Lø  C  I  *79+L  1  C  I  >  *42+ 1161  =  1  FPEEK  (L(I))  =2ø9THEN65ø 
76ø  PCI) =Pø  C  I ) *79+P 1  C  I ) *42+ 1 1 6 1 : PQKEP C  I ) , 224  =  Pø  Cl ) =Lø C  I ) = P 1  C  I ) 
77ø  POKES I +4,ø 

780  IFPEEKCLC I >  >=222THENP0KELC I > , 209 : POKELC I )-4ø, 224 : G0T0920 
79ø  POKELC I), 209 =G0T0580 

800  POKES 1+7,103: POKES 1+8,17: POKES 1+13,240 : POKES I +1 2 , 0 : POKES I + 
810  S=0*79+Q1 *42+1 161 = POKES, 224 : POKES-40, 224 : IFQ=ØTHENP0KES-4ø 
820  Q=R : Q 1 =fl 1 : S=R*79+R 1 *42+ 1161  =  1 FPEEK C  S ) O224THENP0KES 1  +  11,0  = 
830  POKES, 222 : POKES-40, 17ø : IFH=øTHENP0KES-4ø, løl 
840  POKES I  + 1 1 , ø : SF=S~ 1 024+55296 = I F  C PEEK  C  SF ) RND 1 5 )  =  1 THEN860 
850  G0T0640 

860  FORW=SF- 1 TOSF + 1 = POKEW, FR : NEXTLI : P=P+1 : I FP>RETHENRE=P 
87ø  PR I HT " HK" ,  P ,  , RE  = I FP=RUTHEN89ø 
88ø  G0T0640 

890  FR=FR+1 = I FFfl> 1 5THEHFfl=3 

9øø  P0KE53280, FR : RU=RU+48+lø*L : RJ==" " : P=P+lø*L  = I FP>RETHEHRE=P 

91ø  PR I NT "D" =G0T039ø 

920  I Ffl=øTHENP0KES-4ø , løl 

930  FOR I =ØT08 : PR I NT = NEXT I 

94ø  FOR 1=1 80T0 1 30STEP- 1 

95ø  POKES I +24 , 1 5 : POKES 1 , 207  =  POKES 1  +  1,1= POKES 1+6,1 43 

960  POKES 1+5,15== POKES 1+4,17  =  NEXT I =  POKES I +4 , ø 

970  POKES 1,90  =  POKES 1  +  1,4  =  POKES I +6 , 255  =  POKES 1+5,15 

98ø  POKES 1 , 5ø  =  POKES 1  +  1,17  =  POKES I +6 , 32  =  POKES I +5 , 0  =  POKES 1+4,17 

99ø  F0RT=lT018ø : NEXTT = POKES I +4, ø 

løøø  PRINT"«:«««:  ORNE  -  O  V  E  R  >>»>»»" 
lølø  PRINT  =  PR  I  NT  "Bl  TRVK  F1  FOR  ET  NVT  SPIL  !  " 

1 020  POKE 1 98 , ø : UR I T 1 98 , 1 = G0T0240 
1030  RERDK = RERDKL = RERDKH 

1 040  POKES I +K , KL  =  POKES I +K+ 1 , KH : POKES I +K+4 ,17  =  G0T04øø 


=L1 C  I ) 


1 1 , 33 

,  løl 
G0T0930 


I = POKES I +6, 14' 


1 ø5ø  R= C  255-PEEK  C  5632 1 ) ) RND 1 5 
1060  IFR=øTHEN64ø 
1 070  I FR=4THENR 1 =R 1 - 1 =  G0T080Q 
1 ø8ø  I FR-8THENR 1 =R 1 + 1 = G0T0800 
1 090  I FR= 1 THENfl-R” 1 =  G0T0800 
liøø  I FR=2THENR=fl+ 1 =  GOTOSøø 
1110  G0T0640 

1120  DRTflØ, 180,8,7,247, lø,7, lø, 13,7, 103, 17, 14,237,21, 14,20,26, 14,207, 
1 1 30  P0KE56 , 48  =  FOR I  =  1 T021 = RERDR  =  NEXT 
1 1 40  FOR I =828T087ø  =  RERDQ  =  POKE I , Q  =  NEXT 

1 1 5ø  DRTR  1 2ø , 1 69 , 49 , 1 33 ,1,1 69 , ø , 1 33 , 98 , 1 33 , 1 øø , 1 69 , 208 , 1 33 , 99 , 

1 16ø  DRTR 1 62 ,16,1 6ø , ø ,177, 98 , 145,1 Øø , 200 , 208 , 249 , 230 , 99 , 230 , 1 0 
1 1 7ø  DRTR 1 69 , 55 , 1 33 , 1 , 88 , 96 

1 1 8ø  SVS828  =  P0KE53272 , C  PEEK  C  53272  >  RND240 ) OR 1 2 
1 190  RERDR  = I FRCØTHENREST ORE  =  RETURN 

1 2øø  FOR J=ØT07  =  RERDB  =  POKE 1 2288+R*8+ J , E  =  NEXT  =  GOTO 1 1 90 
1210  DRTR 1 6ø , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 
1 22ø  DRTR 1 7ø , 255 , 255 , 23 1 , 1 95 , 1 95 , 1 29 , 0 , 0 
1 23ø  DRTR222 , 129,1 95 ,219,1 89 , 2 1 9 , 24 , 255 , 255 
1 24ø  DRTR209 , 1 95 , 1 29 , 36 , ø , ø , 60 , 1 53 ,195,-1 


lø5ø 
1060 
1070 
1080 
1 090 
1100 
lllø 
1120 


115ø 

1160 


169, 48, 

1 ,202,2 


133, løl 
08 . 242 


SOFT  Special  3 1 


Super-Bam 


COMMO 

DO« 

64 


Med  dette  program  har  du  nu 
chancen  tor  endelig  at  Id  or¬ 
den  pd  dine  disketter.  Du  kan 
ændre  dit  bamhoved,  dit  id. 
nr.,  samt  ændre  formatet  pd 
disketten. 

Endvidere  kan  du  ændre  din 
dos  (disk  operating  system), 
sd  du  writeprotecter  din  disk 
uden  at  pdklæbe  mærkat. 
Programmet  er  i  øvrigt  selvin¬ 
struerende  og  fortæller  alt, 
hvad  du  vil  vide  i  rem  linjer. 

Jan  Toft 


HCT 


20  REM  PROGRAM  TIL  AT  UNDRE  DISKETTE  NAVN  SAMT  ID  NR.  SAMT  DOS  MÆRKE , 

30  REM  UDEN  AT  FORMATERE  DISKETTEN  OM 

40  REM  PA  SKÆRt-CN  VISES  TRE  RÆKKER  MED  KLAtfCR 

30  REM  HVER  RÆKKE  BESTÅR  AF  4  KLAfWER 

60  REM  OVER  FØRSTE  KLAMt  STAR  DER  DOS 

70  REM  HER  KAN  DU  ÆNDRE  DOS  MÆRKET  PA  0 1 SKETTEN 

80  REM  DET  RI0TI0E  MÆRKE  ER  'A'  ALLE  ANORE  MÆRKER  MEDFØRER  ! 

SO  REM  AT  DU  IKKE  KAN  SKRIVE  PA  O ISKETTEN 

100  REM  I  KLAMT«  NR. 8  SKRIVER  OU  DISKETTENS  NAVN 

110  REM  I  KLAMME  NR . 3  SKRIVER  DU  ID  NR.  BEMÆRK  AT  DETTE  KUN  ER  OVERFLADISK 

120  REM  DA  DET  RIOTIQE  10  NR  STADIGVÆK  VIL  STA  I  HEAOEREN  PA  HVER  BLOK 

130  REM  DEN  SIDSTE  KLAM«  HAR  INGEN  PRAKTISK  BETYDNING 

140  REM  DU  KAN  SKRIVE  LIGE  HVAD  DU  LYSTER  F.EKS  DINE  INITIALER 

130  REM  VED  TRYK  PA  <F1>  VISES  GAMMEL  BAMHOVED  I  DEN  FØRSTE  RÆKKE  KLAMMER 

160  REM  C  F  1  )  KAN  AKTIVERES  PA  ET  VILKET  SOM  HELST  TIDSPUNKT 

170  REM  DEN  NÆSTE  RÆKKE  KLAMfCR  STAR  DEN  KUNSTIGE  CURSER  OG  HER  SKRIVER, 

180  REM  MAN  DET  NYE  BAMHOVED 

190  REM  I  DEN  TREO  I E  RÆKKE  KLAMER  VISES  DET  NYE  BAMHOVED 
200  REM  VARIABLER  BRUGT  I  PROGRAM 
210  REM  Lø  -  ANTAL  CURSER  NED 

220  REM  X*  SAMT  Yø  -  BESTEMMER  HVILKE  TASTER  DER  MA  TRYKKES  PA 

230  REM  C  -  TOMME  FELTER  I  INPUT  STRENG 

240  REM  Q  -  HVOR  CURSEREN  SKAL  I  INPUT 

230  REM  LN  -  MAX  KARAKTERER  I  IhFUT 

260  REM  M  •  TÆLLER 

270  REM  P  •  BLOCK  POINTER 

280  REM  A  -  VARIABEL  1  FOR  OG  «XT  LØKKE 

290  REM  C  »  ANTAL  KARAKTERE  I  MID* 

893  REM  L  -  ANTAL  CURSER  NED 
300  REM  AØ  -  DEN  ENOELIGE  BAM 
310  REM  BØ-  VARIABEL  I  IM»UT 

320  REM  C2ø*C3ø*C4ø  -  TOMHE  FELTER  BAMHOVEDET 
330  REM  FIØ-F40  •  FEJL  VARIABLER 
340  REM  Fø-  HJÆLPE  VARIABEL 

330  REM  EØ  •  LÆST  BATØHOVEO  S  ♦  25  *  CUIlSOR  NED 

360  REM  Aø<  1  )  -  DOS  MÆRKE  i 

370  REM  Aø<  2 )  -  DISKETTE  NAVN  7 

380  REM  A«3)  •  ID  t«. 

390  REM  Aø<  4 )  ■  FORMAT  / 

400  PRlNT"iJ"iP0KE2,3«REM  SLETTER /SKÆRM  SAMT  SAETTER  ANTAL  AF  KLAMMER 

4  10  Lø-'MMMMaaaBMMHMMMMr  »REM  VARIABEL  TIL  CURSER  POSITION 

420  P0KE53280 ,4  i P0KE5328 1 ,03  REM  SKÆRM  FARVER 

430  PRINT"**!  "I 

440  REM  V  SKRIVER  SKÆRM 

430  REM  \  . 

460  REM  SR  V 

470  PR  I NT  *  *1«  »**•***•»*•***••****•**••*•*•••********") 

480  PR  INT"  *KJ  NYT  BAM  HOVE  O  1§**J 
490  PR INT" •*••*«••*••*** **« • **«» *•«**•*»*•*«**•»*•"> 

300  PR  I  NT’  KJ  S  +  S«  CURSOR  NED  "J 

310  PR  1NTSPC<  3 > " BMHMH  DOS  DISKETTE  NAVN  ID  FORMAT" 

320  FORX- 1 TOPEEK<  2  > 

330  PRINT**  , n  , - %  , - , - v  o 

340  PRINT"  til  II  II  I  jr 

330  PRINT"  V — ->  v - - - J  •> - J  >■ - » NEXT 

360  PR INTLEFTø<  Lø, 19 ) i  PRINT"«  TRYK  F1  FOR  SYN  AF  OPRINDELIG  BAM* 

370  PRINT**!  TILVIRKET  AF  JAN  TOFT  D. 1-10-1984" 

380  PRINT"*!  TIL  OFFENTLIG  BRUG* 

380  REM 

600  REM  SKÆRM  SLUT 

610  REM 

620  G0SUB960 


•  CURSOR.  NED 

DISKETTE  NAVN 


630  REM  RUTIKE  TIL  TJEK  OG  OPFYLDNING  AF  TOt’t'E  PLADSER  I  INPUT  VAR  I  ABLERhC 
640  CES" " 

630  C 30" "  " 

660  C40-C3S 

670  C-LENC  C2ø )  -LENC  Aø<  2>  >  » Aø<  2  > -Aø<  2)*RIGHTø<  C2ø,C> 

680  C-LENC  C3ø )  -LENC  Aø<  3>)iAø<  3  ) -AøC  3  >  *R  IGHTS<  C3ø,C  > 

690  C-LENC  C4S>  -LENC  Aø<  4)  >»AØC  4>-Aø<  4>*R1GHTØC  C40,C> 

700  Aø-AøC  8 > ♦  "  " ♦AøC  3 > ♦  "  •♦AØC4)*" 

710  REM 
720  REM 

730  P" 144 »G0SUB900»PR INT02 ,AØJ » G0SUB830 » REM  SKRIVER  BAM 
740  REM 

730  P-2 « G0SUB9 10 » PR INT02 , AØC  1 >1  » G0SUBB30 « REM  SKRIVER  DOS  MÆRKE 
760  L" 17 * P0KE646 ,8 » G0SUB780 • GOSUB 1 190 * RUN4  10 
770  *EM  LÆSER  BAM  OG  HOPPER  TIL  PRINT  RUTINE 

780  P- 1 44  « G0SUB900 « FORA" 1 T034 « GET02 ,Fø»E8-Eø+F8i NEXT« P0KE2 ,2 • G0T0830 
790  REM 
800  REM 

810  REM  SKRIVER  TIL  DISKETTE  OPERATIV  SYSTEMET  <00S>,  AT  DEN  SKAL 
820  IGNORERE  DOS  MÆRKET 

830  PR  I  NTØ  1  ,  "M-W’CHRØC  1  >CHR8<  1  >CHRøC  1  >CHRS<  63) 

840  PR  I  NTØ  1 , "U2 «  *12)0)  18)0« RETURN«  REM  SKRIVER  PØ  SPOR  18  SECTOR  O 
830  REM  PRINTER  BAM  PAA  SKÆRME£^ — 0  0  CLLSdR.  T.H. 

860  PR  INTLEFT8<  Lø  ,L  >  ♦  * ttMUOSSa*  *M I 0ø<  Eø,  1 , 16)1 
870  PRINT******  *MIDø<  Eø,  19,2)  J 

880  PRINT******  »MIDøC  Eø,22 ,2  )  i  GOSUB  1  190 « Eø- "  "  » G0T0940 
890  REM  INITIALISERE  OG  ØBNER  EN  KANAL  TIL  DISKETTEN 
900  GOSUB  1 190 • 0PEN1 ,8,13,"I"i 0PEN2 ,8,2, "0" 

910  PRINT01  ,  "UI  i  ")2;0M8)0»REM  LÆSER  SPOR  IB  SECTOR  O 
920  PRINT01 , "B-Pl "I21P 
930  RETURN 

940  P-2 1 G0SUB900  »  GET02  ,Fø»  PR INT  ’(*'  *Fø»  RETURN 

930  P-  144  « L-9 »  P0KE646 ,3 1 G0SUB780  « CL0SE2 * CLOSE  1 « PR  INT**S*  * P0KE2  1  1  ,CL»G0TO1010  | 
960  Xø-CHRøC  32)  « Yø-CHRøC  140  )  «C- 12 1 0-3 « LN- 1 « G0T0900 
970  Bø- * " »LN- 14 « Q-2 

980  M-M+  1  i  PR  INT  LEFTØC  LØ,C  > « REM  TÆLLER  AøC  M>  EN  OP 
990  P0KE2 1  1  ,Q « REM  CURSER  POSITION  PA  LINIEN 
1000  REM  KUNSTIG  CURSER 

1010  PRINT***PW*l  l  FORA-  1 T040  *  GETAØ*  IFAØ<  >"-THEN1040 
1020  KEXT«PRINT***V)  »F0RA-1T040« IFAø- " 'THENNEXTi GOTO  10 10 
1030  REM  TEST  FOR  <F1)7  HVIS  JA!  GEM»«R  CURSER  POSITION  OG  LÆSER  BAM  IND 
1040  IFASCC  Aø ) -  1 33THEN«  CL-PEEKC  2  I  1  MG0T0930 
1030  REM  TEST  FOR  RETURN 

1060  IFASCC  Aø)-13AND0<  >  1 3THET*>R  I  NT  "»►•"*  GOTO  1  150 
1070  IFASCC Aø>< >20THEN1 100 
1080  IFLENC  Bø > -OTHENNEXT«  GOTO  10 10 

1090  Bø-LEFTøC  Bø  ,LENC  BØ)  -  1  >  »PR  INT"*  **  "I »GOTO 10 10 
1100  IFAØCXØ  ORAø  >YØTHEM'CXT  i  GOTO  10  1 0  /  CU0000  TH. 

1  1  10  IFLENC  BØ)CLNTHENBø-Bø»Aø»PRINT-BB*Aø"Ifl-;  »G0T01010 
1120  NEXT » GOTO  1010 

1130  REM  POINTER  TIL  KUNSTIG  CURSER 
1 140  REM 

1130  IF  Q-3  THENQ-9 « LN- 16 » AøC  M) -Bø«  Bø- " "  »G0T09B0 
1160  IF  Q-9THENQ -29 » LN-2 « AøC  M> -Bø»  Bø- * "  »G0T0980 
1170  IF  Q-29THENQ-33 « LN-2  »AøC  M)-Bø»Bø-""  »G0T0980 
1180  AøC M)-Bø« IF0-33THENRETURN 
1190  REM  FEJL  RUTINE 

1200  CL0SE2 » CLOSE 1 »0PEN1 ,8, 13« INPUT01 ,F lø,F2ø,F3ø,F4ø 
1210  IFF20C  > "OK "THEN1230 
1220  CL0SE2 » CLOSE 1 »RETURN 

1230  PR INT"  J"  »LEFTØC LØ,12)*F lø* "  "♦F2ø»"  "♦F3ø»"  " *F4ø»  CL0SE2 >  CLOSE 1 >  END 
REAOY. 
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Programmet  foretager  auto¬ 
matisk  backup,  en  proces 
som  ellers  kræver  en  del  tid 
og  koncentration  af  bruge¬ 
ren.  Vær  under  indtastnin¬ 
gen  opmærksom  på  linie 
290,  hvor  der  skal  stå  '  'tryk  på 
ENTER.".  A'et  skrives  ved  at 
trykke  CTRL  SHIFT  ',  desværre 
kan  printeren  ikke  skrive  teg¬ 
net  som  i  QL  er  repræsenteret 
ved  ASCII  værdien  82H.  Pro¬ 
grammet  er  selvforklarende, 
så  når  det  er  tastet  ind  skrives 
blot  RUN.D 

Michael  Riber 

yløø  REMark  ***  b«.cku.P  *** 

llø  REMark  af  Michael  Riber 
12ø  * 

13ø  CLS 

14ø  PRINT  "#**  BRCKUP  ***  Start  ***" 

15ø  PRINT  V'KoP ierer  alle  filer  fra  rodvi  til  rodv2. " 

16ø  PRINT  V'Placer  de  to  kassetter  09  tryk  ENTER. " !PRU3E 
17ø  PRINT  "Forberedelse  til  backup." 

180  • 

19ø  OPEN-NEW  #15/  rod v  1  _d  i  r  _troP 
2øø  DIR  #15/  rod  v  1  _ 

21ø  GLOSE  #15 
220  * 

23ø  0PEN..IN  #15  /  rodvl_dir_troP 
24ø  INPUT  #15/catri9de-narr.e$ 

250  INPUT  #15/ catri9de_status$ 

260  « 

27ø  INPUT  Wil  du  formatere  kassetteri  i  rodv2  ?  ";svar* 

28ø  IF  < svar**" J" >  OR  <svar$*"j")  THEN 
29ø  PRINT  "Vent  til  rodvi  stoPPer/  tryk  s  ENTER. " : PRUSE 
3øø  PRINT  "Forroaterin9  >  ".i 
31ø  FORMRT  "rodv2_"8<  catri9de_.naroe$ 

32ø  END  IF 
33ø  PRINT  \ 

340  » 

35ø  Rntal_.fi  ler  «  ø 
36ø  REPeat  koPier_fil 
37ø  IF  EOF  (#15)  THEN  EXIT  koPier.fi l 
38ø  INPUT  #15  /  f  i  le_naroe$ 

39ø  IF  f  i  le_naroe$  O  "dir.troP"  THEN 
4øø  Rntal_.fi  ler  =  Rntal_.fi  ler  +  1 
41ø  PRINT  "Kopierer  " ;  f  i  le_naroe$ 

42ø  COPY  "rodvi file_r.aroe$  TO  "rndv2_."&  f  i  le.naroeS 
43ø  END  IF 

44ø  END  REPeat  koPier_fil 
45ø  * 

46ø  PRINT  V'Der  blev  kopieret  ";  Rntal_.fi ler;  "  filer." 

47ø  GLOSE  #15 
48ø  DELETE  mdvl_.dir_.troP 
49ø  * 

5øø  PRINT  V'm  BRCKUP  ***  Afsluttet  *##" 
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Stroboskop 


COMMO 

DO« 

64 


Et  festligt  program  til  Commo- 
dore  64,  der  sørger  for  lækre 
effekter  under  fester  og  lig¬ 
nende.  Foruden  stroboskop¬ 
lyset  er  der  6  andre  lyseffek¬ 
ter,  som  alle  kan  køre  ud  fra 
hovedmenuen. 

Kurt  Bennetsen  og 
Klaus  Kortbæk 


ø  PR  I  NT  "IT  :  CLR 

1  P0KE53231 , 0 : P0KE53280, ø : GOSUB  8ø 

2  GETRf :  IF  R*=""  THEN  2 

3  I Ffl$= " ■" THEN2 1 

4  IFR$="l"THEN4ø 

5  IFR$="II"  THEN  50 

6  IFR*="SI"  THEN  60 

7  IFR$="S"  THEN  løø 

8  I FRf = "B" THEN229 

9  IFfl$="T“  THEN  PR  I  NT  "  IT  :  PR  I  NT  "  SI - :GQTO  11 

10  GOTO  2 

11  PRINT  CHR$< 147) 

12  PRINT"S«ER  DU  SIKKER« J/N)?" 

13  GET  SR* : IF  SR*=" "  THEN  13 

14  IF  SRJ=“J"  THEN  PR  I  NT  "ri"  :  END 

15  IF  SR$="N"  THEH  RUN 

16  GOTOø 

21  PRINT'73  SI/ - 

22  PRINT"  Sil  ii  SOIJND.  li  I" 

23  PRINT"  ST - - 

24  PR  I  NT  "  BKOTil" 


25  print"  sr  ar  nb  a  a  aaaa  aa 

26  print"  a  a  aa  aaaa  aaaa  a« 

27  print"  a  a  aa  aaaa  aaaaaa 

28  PRiNT"’ia  •ytt  aa  aa  aa  ae  aaaa 

29  print"  aa  aa  aa  aa  aa  aa  aa 

3ø  print"  aaaa  aaaa  aaaa  a  > 

31  print"st  y^a  ar-^a  ^  a  a  aaa 

32  GETE$ : IF  B$=""  THEN  32 

33  IF  B*="  "  THEN  RUN  \ 

34  RUN  \  X 

40  PR  I  NT  "ri"  :  REN  **  STROBE  LVS  **  x  ^ 

41  POKE  53281  ,  0 :  POK.E  53280,0 

42  FOR  R=1  TO  75 :  NEXT  ^  / 

43  POKE  53281,1  i 

44  GETRlflF  Rl»="  "  THEN  RUN  / Kj W/Mi, 

45  GOTO  41  /  WMUs//\[ 

50  REN  #*  FRRVESTROBE  *# :  7 

51  PR  I  NT  "ri"  :  POKE  53281 ,  ø :  POKE  53280, ø 

52  FOR  Rl=ø  TO  15  Bl  |  l 

53  POKE  53281, RI  _______  -4 - Q( 

54  FORB=  1  T05ø :  NEXTB  — - -  \  \ 

55  POKE  53280,  RI  \V  YX 

56  F0RB=lT05ø: NEXTB  1  / \ 

57  GET  R25 : IF  R2t="  "  THEN  RUN  /  * 

58  NEXT  RI  /  -H 

59  GOTO  51  / 

60  REN  #*  COBRLLS  ** 

61  PR I NT "n" : POKE  53281,0: POKE  53280, 0 : V=1514 : VI =1534 

62  RE=INT«RND< 1 >*4i+l 

63  IF  RB=1  THEN  V=V+40 : Vl=Vl-4ø : F=2 

64  IF  RB=2  THEN  V=V-4ø : Vl=Vl+4ø : F=5 

65  IF  RB=3  THEN  V=V+1 : V1=V1-1 : F=6 

66  IF  RB=4  THEH  V=V-1 : V1=V1+1 = F=7 

67  IF  VC1024  THEN  V=V+4ø 

68  IF  V>2023  THEN  V=V-4ø 


THEN  RUN 
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6*  IF  VK1B24  THEM  Vl=Vl+4ø 
7R  IF  VI >2023  THEM  VI “VI -40 

71  OET  RB$ : IF  RBS="  ”  THEN  RUM 

72  POKE  V ,  8 1  :  POKE  V 1  >  8 1 :  F'OK.E  V+54272  .•  F  :  POKE  V 1  +54i?,=. ,  F 

73  GOTO  62 

74  RUN 

8ø  REM  **  INSTRUKTIONS  ** 

81  PPI NT "KW  IB  O  U  NB-  VRLGMULIOHEBER.  " 

82  PRINT"  HI 

83  PRINT"  filOVERSIGT" 

84  PRINT"KSi  5F1!  S  O  U  N  B“:PRINT"W  ^29  LØBELVS" 

8^  PR  I  NT  "  Kl  SF  39  STROBE-LVS"  :  PRINT"®  SF49  SOUNB  RUN" 

86  PRINT"«  JF59  FHRVE-STROBE" 

87  PRINT"«  SF69  COBRLLS" 

88  PRINT"«  SI  19  STOP" 

89  PRINT" ««T I LBRGE  MEB  'SPRCE'" 

91  RETURN 

løø  PR I NT "n" : POKE  5328 l.ø  POKE  53280.0 
løl  GOSUB  199 

102  T=INTCRNDa>*7>+l 

103  IFT=1  THEN  R=5 : B=159 : C=28 : D=156 

104  IFT=2  THEN  R=28 • B=156 : C=3ø : B=31 

105  IFT=3  THEM  fl=3ø : B=31 : C=159 : B=5 

106  IFT=4  THEN  R=31 : B=3ø : C=28 : B=156 

107  IFT=5  THEN  R=156 : B=28 : C=31 : B=3ø 

108  IFT=7  THEN  fl=159 :  B=3ø :  C=156 :  B=31 

110  PRINTCHR$Cfl> = PRINT"«  SE  O  U  N  B" 

111  GET  RSiTIF  R6$="  "  THEM  RUN 

112  GOTO  løl 

199  PRINTCHRfCFD _ 

200  PRINT" ratrøtrømrai««  *•••  " 

2øl  PRINT”  •••••• 

202  PRINT"  ••••••" 

203  PRINT"  ••••••" 

204  PRINT"  ••••  " 

205  PRINTCHR*f,B>  n 

207  PRINT"'iWtfsTiT;T:WiT:Wt#<M®" 

208  PR  I  NT  "  " 

209  PR  I  NT  "  IjTiTiTjTiTiWiWiTiKI####*  " 

210  PRINT" '=TiiT=T=TiTiTiT;TiT=r=1  ••••  " 

211  PRINT  CHR$CC) 

212  PRINT" SSKIKWHIKIKIKIKWiTilTiTiTiTjTiTjTjTiTiTiliTiTiTiTjTiTiTiTil  ••••" 

213  PRINT " " 


F'R  I  HT  "  'iTjTsT;TiT2TiTiT:T:TiT=TsT:T5TjT^:T:T;Ti»«#**«  " 

PR  I  NT  "  'iTiTiTiTiTiTiTiTiTiTiTiTiTiTiTiTiTiTiTiTil*#**##  " 

PRINT  CHR$(b”" 

pr  i  nt  " 

PR  I  NT  "  IjliTiT jTiT jTsTiTiTjTiTiTjTiTsTiTiTifflsTiTiTiTiTiTiTiTjTiTsTiTi* •  •  •  •  •  " 

PR  I  NT  "  'iTiT:TiTiTiT;TiTiT:TiTiTiT;TiT;TiT;TiT:TiTiTiTiTiTiTiTiTiTiTiH§##*#  " 
PRINT  "  3ST^^;W;TSWin^:W:T:TiWiTiTiTiT;Tim:T:TjTi*#««f*  " 

PR  I  HT  "  ■^=T^=W=TiT=TiT=T=T=T=TiTiT=TiT=T=TiT=T=T=T=TiTiTiTiT=T=T=l  IHI  " 

RETURN 

PRINT "  n" 

F=INT(RNB(1)*8)+1 
IFF=1  THEN  H=3ø 
IFF=2  THEN  R=31 
IFF=3  THEN  R=28 
IFF=4  THEN  fl=159 
IFF=5  THEN  B=158 
I FF =6  THEN  fl=5 
IFF=7  THEN  R=3ø 
IFF=8  THEN  R=31 
PRINTCHRS <R) 

pr  i  nt  "stram  \  i  i  i  /" 

PRINT"  \  I  I  I  I  I  I  /" 

PRINT" " 

print"  ****  mm  *  *  *  *  *** 

PRINT"  *  ********* 

PRINT"  *  *  *  *  *  **  *  *  * 

print"  mm  ********* 

PRINT"  *  *  *  *  *****  * 

PRINT"  ********* 

PRINT"  ****  ****  ****  *  *  *** 

PRINT" " 

PRINT"  /  I  I  I  I  I  I  \" 

GETLT  IFLf="  "  THEN  RUNØ 

I  I 


PRINT" 
PRINT"" 
PRINT" " 
PRINT" " 
PRINT"" 
PRINT" " 
PRINT" " 
F0RB=1T095 
G0T0233 


Digital 


_  nr 

11  P0KE56334  ,  PEEK  C  36334  >  OR 1 28  ft 

12  POKEV+21 ,0  ■ 

15  POKE 198,ø 

3ø  INPUT 'TmiNDTfiST  KLOKKEN  CTTIIMSS)  ";UR» 

35  IFURf >" 125959"0OTO30 

4ø  Ul*VflLCMID*<URf,  1 .  l>>*i6+VflLCmDf<URf,2, 1>> 

50  U2-VHL CMI DS  < UPf ,  3 ,  l)  ) *  1 6+ VflL C M IBS  C URf ,  4 ,  l)  > 

60  U3*VflL(MIDS<UPS ,5, l)>ftl6+VRL(MIDf CUR9/6/ 1 >> 

7ø  INPUTMRn  EL.  PM  ";Qf  IFQfO“Rir,flNDQ»<>MPN,,00T070 
80  IFQf='*Pn "THENU1*U1QR128 

90  pr i nt  "  u* 

1  øø  T  =5633 1  11=56330  -  S*56329 : 1  *56328 

110  POKET, U1  P0KEM,U2P0KES,U3 

12ø  POKEI , ø  Q7=127 : FI=4 

130  HE« 1 6  KB* 197 : PL*223  PR*234  B7= 128 

14ø  POKEV+2 1 , 255  WW*240 ■ FN* 1 5 

15ø  T1*PEEKCT>  Sl=PEEKCS)  f11*PEEK(f1>  T2»TlflNDQ7  P0KEN6/PEEKC I >*PL 

160  P0KEN7, <T1<B7)+PR:P0KEN3, CS1RNDFM>+PL : P0KEN4, Sl/HE+PL 

180  P0KEN3,  CMIRNDFNJ'+PL  :  P0KEN2, Nl/HE+PL  P0KEN1 ,  CT2RNDFN,'+PL 

130  POKENØ, T2/HE+PL : IFPEEK(KB)*FIG0T01 1 

200  GOTO 150 

løøø  V*53248 

lølø  P0KE829 / 223 : P0KE828 , ø 
1 ø2ø  NØ-2040 : N 1 *204 1 ' N2*2042  N3=2043 
1030  N4*2044  N5*2045 : N6*2046  N7-2047 

lø5ø  IFPEEKC 1 4272 >O3THENF0RT*14272T01 5038  RERDR - POKET , fl : NEXT 

107ø  P0KEV+23, 63 ‘ P0KEV+29, 63 : P0KEV+12, 50  POKEV+16, 192 

lø9ø  FORT-V+ 1  TOV-f  15STEP2  =  POKET,  llø :NEXT 

1110  FORT*VTOV+ 1 ØSTEP4 

1120  POKET, <T-V> #22+30 

1125  POKET+2, (T-V;*22+63 

113ø  NEXT 

114ø  POKEV+ 1 4 , 25 :  POKEV+ 1 5 , 13ø :  POKEV-f  13, 130 
1 1 50  FORT »V+39TQV+46 : POKET ,14: NEXT 
1990  RETURN 
5000  REN  »****»**#*#* 

5øøl  REN  »øf 
5002  REN  «*«*»»»»*»** 

5010  DRTR3, 254, ø,3, 254, 0,3/254, ø,28, 1, 192,28, 1, 192,28, 1, 192,28, 1, 192,28 
0«TR28^ .1,192- .28*1, 192, 28,1, 102,28,1. ,92-28 U T  92  28 i ilt  28 J ilt 
5ø3ø  DRTR192,28. 1,192,28,1, 192,3, 254, ø,3,254, ø;3,254,ø  0  1  J  ’ 192 

5040  REN  ************  3 

5041  REN  »  1  * 

5042  REN  »»»»»»**»»»* 


5ø5ø  BflIRø, 112,0,0, 112,0,0, 112,ø,3,24ø,ø,3,24ø.ø,3,24ø,ø.ø, 112,ø,ø, 112,ø,ø, 112 
5ø6ø  DRTRø/Ø, 112/0,0, 112,0,0, 112,0,0, 112,0,0, 112,0,0, 112/0,0, 112,0/0, 112,0,0 
5ø7ø  DRTR112, ø,31, 255, 192.31,255, 192,31,255, 192,0 

5080  REN  »**»*»*»»»»» 

5081  PEN  »  2  » 

5082  REN  »»»»»»»»»»»i 

5ø9ø  BRTR3- 254, ø,3, 254, ø,3, 254, ø,28, 1, 192,28, 1, 192,28, 1, 192,ø, l,192,ø, 1, 192 
5100  DRTRø, 1, 192.3,254,0,3,254,0,3.254,0,28.0,0,28,0,0,28,0,0 
511ø  BRTR28, 0, 0, 28 . ø, ø, 28, ø, ø, 31 , 255 , 192, 31 , 255, 192, 31 , 255, 192, 0 

5120  REN  *»»»»»»*»»»»' 

5121  PEN  »  3  » 

5122  FEN  *»»*»»»*»*** 

5130  DRTH3, 254, ø,3, 254, ø,3, 254, ø,28, 1, 192,28.1,192/28, 1, 192,0,1, 192,0, 1 
514ø  DRTR192, ø, 1 , 192, ø, 126,0,0, 126.0,0, 126, 0,0 ■ 1 , 192, 0, 1 , 192, 0. 1 , 192 
5150  DRTR28, 1, 192,28, 1, 192,28, 1,192,3,254,0,3,254,0,3,254.0,0 

5160  REN  »»»»»♦»»»»»» 

5161  REN  *  4  » 

5162  REN  »*»*»»»»*»»» 

517ø  DRTRØ, 14,0,0,14,0,0, 14,ø,ø, 126,ø,ø, 126, ø,ø, 126,0,3, 142,0,3, 142,0,3, 142,0 
5180  DRTR28, 14,0,28. 14.0,28. 14,0,31-255. 192,31,255, 192,31.255, 192 
5190  DRTRØ, 14,0,0, 14,ø,ø, 14,0,0. 14.0,0, 14,0,0/ 14, øø 
52øø  REN  »»»*»»»*»»*» 

5201  REM  »  5  » 

5202  REM  »»*»»»»*»♦»» 

5210  DRTR31/255, 192,31,255/ 192,31/255/ 192, 28/0,0,28, 0/ø,28/ø,ø/28,ø,ø 
5220  DRTR28, ø,ø. 28, ø,ø, 31. 254, ø,31. 254, ø,31 .254,0,0. 1 . 192/0,1.192,0.1,192 
5230  PRTR28, 1, 192,28/ 1, 192.28, 1, 192, 3, 254, ø, 3, 254, ø . 3, 254 . ø . ø 

5240  REM  »»»*»*»♦»»»» 

5241  REM  »  6  » 

5242  REN  »*»»»♦♦»»»»» 

5250  DRTRø, 126.0-0. 126.00, 126,ø,3,128.ø/3, 128/0/3, 128- ø, 28, ø, 0.28,0-0, 28, ø,ø 
526ø  DRTR31, 254, ø,31, 254, ø,3l/254, 0,28/ 1,192.28, 1, 192,28, 1, 192/28,1/192/28/1 
527ø  DRTR192/28, 1, 192/3/254,0,3-254,0,3,254,0,0 
5280  REM  ♦»»«»*»»»♦»» 

52ei  PEN  *  7  « 

5282  REM  »»»»**»»»»»» 

5290  DRTR31 , 255, 192,31,255, 192,31,255, 192,0,1,192,0,1,192.0,1/192,0, 14/0/ ø, 14 
5300  DRTRØ -0, 14.0.0,112,0/0,112,0,0.112,0,3, 128,ø,3, 128, ø • 3, 128, ø 
531ø  DRTR3. 128,0,3, 128,0/3/ 128,0,3. 128,0,3, 128,0,3. 128, ø,U 

5320  REN  »»»»»*»»»»»♦ 

5321  REM  »  8  » 

5322  REM  »»»»»»»»*»»» 

533ø  DRTR3, 254, 8/3, 234, 0/3/ 254, ø> 28, 1,192, 28/ 1,192/ 28. 1,192, 28, 1,192/ 28. 1,192 
5340  DRTR28, 1. 192/3/254.0,3,254,0,3.254,0,28/1/ 192,28, 1, 192/28,1,192,28. 1, 192 
535ø  DRTR23 , 1 , 1 92 , 28 , 1 . 1 92 , 3 , 254 , ø , 3 , 254 . ø , 3 , 254 . ø , ø 

5360  REM  »*»»»*»»**»♦ 

5361  REN  »  9  » 

5362  REM  »*»*»»»»*»*» 

5370  PRTR3, 254. 0.3, 254. 0,3, 254, ø,28. 1, 192.28- 1 • 192. 28, 1 . 192, 28 • 1 . 192,28,1,192 
5?8ø  PRTR28, 1 , 192,3,255. 192,3,255. 192,3,255, 192/0/ 1 , 192, ø, 1 , 192,0, 1  - 192 
5390  DRTRø, 14.0,0,14.0,0, 14.e,3,24ø.ø,3-24ø,ø,3,24ø,ø,ø 

54øø  PEN  ************ 

5401  REN  *  RN  * 

5402  PEM  *»»»♦»»»»*»? 

541ø  DRTRø, ø,ø. 4, 34,ø, 10,54,0, 1 7, 42,0, 17, 42, ø, 31 , 34,0, 17, 34, 0, 17, 34, ø 
542ø  DRTRø, ø,ø, ø,ø, ø,ø, ø,ø, ø,ø, ø/ø, ø,ø, ø,ø, ø,ø, ø,ø, ø,ø, ø,ø, øø, 0,0- 0,ø, 0,0,0 

1,192 5430  DRTRø, ø, ø,ø,ø 
'28 i-l  544ø  REN  *«**»»****»* 

5441  REM  »  PM  * 

5442  PEN  **»*»»»**»** 

5450  DRTRø,  0,0,  ø,ø,  ø,ø,  ø,ø,  ø,ø,ø,  ø,ø/ø..  ø,ø,  ø,ø,  ø,ø,  ø,ø,  0.0,0  ø,ø 

5469  DHTR30, 34/0/ 17,54,0, 17,42,0,30,34,0, 16,34,0,16/34,0, 16,34, ø,ø 

5470  DRTRø. ø,ø, ø.ø, ø,ø. ø,ø, ø,ø, ø,ø,ø 
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10  REM  RUNDT  Pil  GULVET  for  2  spillere.  \ 

20  ON  ERROR  RUN  \ 

30  GOTO  370  \ 

40  I FPOINT ( X 1%,  Yl%)  O  0G0T01 130  \ 

50  IFP0INT(X2X,  Y2«>  O0G0T01280  \ 

60  GCOLO,  3SM0VEX1X,  GY1%S DRAWX 1%,  Y1XSGY1*=Y1X- - -A 

70  GC0L0,6sM0VEX2*,GY2*sDRAWX2X, Y2%sGY2X=Y2*  \ 

ao  ifwx=igotoiso  \  \ 

90  IFADVAl(1)DIVD%<1BX=1  \  \ 

100  IFADVAL(l)DIVDX)  1BX=2  \ 

110  IFADVAL(2)DIVD%(1B*=3  \  _ ^ 

120  IFADVAL(2)DIVDX> 1B%=4  \ 

130  IFADVAL  (3)  DI  VD%  <  1  A5l=l 

140  IFADVAL (3) DIVDX)  1A%=2  J 

150  IFADVAL (4) DI VDX(1A%=3  I  — 

160  IFADVAL  (4)  DIVDlO  1A%=4  ^ _ 

170  G0T0260  V  I 

ISO  IFINKEY (-104) B%=1  \  X  _ _ 

190  IFINKEY (-103) B%=2  V" — **"  . 

200  IFINKEY (-105) BX=3  \  \ 

210  IFINKEY  (—73)  B54=4  \  \ 

220  IFINKEY  (—83)  A%=1  \  \  ^ - 

230  IFINKEY  < -67 >  AX=2  \  _ idT""'  i - - - 7 

240  IFINKEY (-98) A%=3  ' 

250  IFINKEY (-66) A%=4  ' 

260  S0UND1,-9,S1*,  1  sSl*=Sl*+l  :S0UND2,  -9.  S2S,  1  sS2X=S2*+l 

270  0NAKG0T0280,  290,  300,  310 

280  X1%=X1K+8:G0T0320 

290  X 1 5t=  X 1  S— 8  s  G0TO32O 

300  Y 1  %= Y 1  8  s  G0T0320  v 

310  Yl%=Yl*+8  \ 

320  0NBXG0T0330,  340,  350,  360  \ 

330  X2X=X2%+8sG0T040  \ 

340  X2«=X2X-8sG0T040  \ 

350  Y2*=Y2*-8sG0T040  \ 

360  Y2X=Y2*+8sG0T040  \ 

370  MODE  1  s VDU  23,  1, 0;0;0;0;  - V - 

380  VDU  23,66,  126,51,51,62,51,51,  126,0  \ 

390  VDU  23,68,  126,51,51,51,51,51,  126,0  \ 

400  VDU  23,  86,  99,  99,  99,  54,  54,  28,  28,  O  \ 

410  VDU  23,91,31,60,  108,  127,  108,  108,  111,0  \ 

420  VDU  23,92,62,  103,  111,  123,  115,99,62,0  \ 

430  VDU  23,  93,28,  O,  62,99,  127,  99,99,  O  \ 

440  ENVELOPE  2,0,  O,  0,-1,  1,  1,255,0,0,0,0,0,  O  \ 

450  ENVELOPE  3,  3,  0,0,  O,  0,0,  O,  126, -2, -1,-1,  126,  100  \ 

460  VDU  19,3,6,0,0,0 

470  CLSiGCOL  0,2 

480  DRAW  1279,  OsDRAW  1279,  1023 

490  DRAW  O,  1023!  DRAW  0,0  _ — 

500  MOVE  4, OsDRAW  4,1023  " 

510  MOVE  1275,  0SDRAW1275,  1023 

520  MOVE  12,  8:DRAW  1266, SsDRAW  1266,1012 

530  DRAW  12,  1012SDRAW  12,8 

540  MOVE  16,  SsDRAW  16,1012 

550  MOVE  1262, 8SDRAW  1262,1012 

560  COLOUR  1 

570  PRINTTAB (10,  3) "*******************" 

580  PRINTTAB <10, 4) "*  *" 

590  PRINTTAB (10, 5)"*  *" 

600  PRINTTAB  <  10,  6)  "*  *"V - 

610  PRINTTAB <10,  7) "*******************"  \ 

620  COLOUR  2sPRINTTAB(19, 4)". "  \ 

630  PRINTTAB(12, 5) "RUNDT  PA  GULVET"  \ 

640  COLOUR  3 

650  PRINTTAB(12,  10) "For  2  spillere." 

660  COLOUR  2sS=174 

670  FOR  X=1  TO  38  STEP  2 
680  SOUND  1,-11,  S,  1 

690  SOUND  2, -11,8-1,1 

700  S=S-4 

710  PRINTTAB(X,  12)  " _ " 

720  NEXT s COLOUR  2 

730  PRINTTAB<6, 15) "GUL  styrer  med  A  Z  X  C" 

740  COLOUR  3 

750  PRINTTAB (8, 16)“. " 

760  PRINTTAB(6, 17) "BLA  styrer  med  ,  .  /  s" 

770  COLOUR  1 

780  PRINTTAB (3, 21) "DET  GaLDER  OM  IKKE  AT  RAMME  NOGET. 

790  PRINT  s COLOUR  2 

800  FOR  X=1  TO  38 

810  PRINTTAB (X,  24) ; 

820  NEXT s COLOUR  3 

830.  PRINTTAB (8,  28) "Bruges  JOYSTICK  ?  (J/N)" 


Rundt  på 


840 

FOR  S=-15 

TO  0  STEP 

0.3 

850 

SOUND  1, 

S,  80,  1 

860 

SOUND  2, 

S,  81 ,  1 

870 

NEXT 

880 

Q*=GET* 

890 

IF  Q*="J" 

W%=0  s  GOTO 

920 

900 

IF  Q*=“N" 

WX=1 s GOTO 

920 

910 

GOTO  880 

920 

MODE  2 

930 

VDU  23,  1,( 

);0;0;0; 

940 

AP=0:BP=0 

:0M=10SDX=20000 

950 

COLOUR  144SCLSSGC0L 

0,  1  s  MOVE  0,4 

»Rundt  på  gulvet«  er  et  TRON- 
lignende  spil  beregnet  til  en 
32K  BBC  computer. 
Programmet  kører  kun  med 
to  spillere,  og  du  kan  selv 
vælge,  om  det  skal  foregå 
med  joystick  eller  fra  tastatu¬ 
ret.  I  øvrigt  er  programmet 
selvforklarende. 

Hans  Hansen 


BBC- 

B 
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gulvet 


960  DRPW  0, 1023 : DRPW  1279,1023 
970  DROW  1279, 4: DRPW  0,4 
980  X1X=300:Y1X=500:GY1X=Y1X 

990  X2X=979:Y2X=500:GY2X=Y2X 

1000  PX=1  :BX=2:S1X=0:S2X=100 
1010  FOR  Q=1  TO  2000: NEXT 
1020  FOR  1=3  TO  1  STEP  -1 
1030  PRINTTPB<9,  16) ;I 

1040  FOR  S=-15  TO  O 

1050  SOUND  1,  S,  60,2 

1060  SOUND  2,  S,  61,2 

1070  NEXT 

1080  FOR  J=1  TO  1400SNEXT 

1090  NEXT 

1100  PRINTTPB <9,  16) "  “ 


*FX  15,0 
GOTO  270 

IF  POINT (X2X, Y2X)  O  O  THEN  1410 

SOUND  17,0,200,1 

SOUND  16,3,7,1 

VDU  19,0,3,0,0,0 

FOR  K=1  TO  100SNEXT 

VDU  19,0,0,0,0,0 

GCOL  0,3 

FOR  1=0  TO  8 

RXX=RND  < 100) -1 : RYX=RND  < 100) -1 
MOVE  XIX,  Y1X:PL0T  1 , RXX, RYX 
MOVE  XIX, Y1X: PLOT  1,-RXX,  RYX 
MOVE  XIX, Y1X: PLOT  1,  RXX, -RYX 
MOVE  XIX, Y1X:PL0T  1 ,  -RXX, -RYX 
NEXT 

PP=PP+1 sGOTO  1600 
SOUND  17,0,200,1 
SOUND  16,3,7,1 
VDU  19,0,6,0,0,0 
FOR  K=1  TO  lOOtiMEXT 
VDU  19,0,0,0,0,0 
FOR  IX=0  TO  8 

RXX=RND ( 100) -1 : RYX=RND ( 100) —i 
MOVE  X2X, Y2X : PLOT  1 ,  RXX,  RYX 
MOVE  X2X,  Y2X :  PLOT  1,-RXX,  RYX 
MOVE  X2X, Y2X  s  PLOT  1, RXX, -RYX 
MOVE  X2X, Y2X:  PLOT  1,-RXX, -RYX 
NEXT 

BP=BP+ 1  :  GOTO  1600 
SOUND  17,0,200,1 
SOUND  16,3,7,1 
FOR  L=1  TO  2 
VDU  19,  0,7,0;0 
FOR  K=1  TO  88: NEXT 
VDU  19,  O,  O,  0;0 
FOR  M=1  TO  88: NEXT 
NEXT 

FOR  IX=0  TO  8 

RXX=RND < 1 00) -1 : RYX=RND ( 1 00  > - 1 
GCOL  O, 3: MOVE  X1X,Y1X:PL0T  1, RXX, RYX 
GCOL  O, 6: MOVE  X2X,  Y2X: PLOT  1, RXX, RYX 
GCOL  O,  3:  MOVE  XIX,  YlXi  PLOT  1,-RXX,  RYX 
GCOL  O,  6:  MOVE  X2X,  Y2X :  PLOT  1,-RXX,  RYX 
GCOL  O, 3: MOVE  XlX, Y1X:PL0T  1, RXX, -RYX 
GCOL  O,  6: MOVE  X2X, Y2X : PLOT  1,  RXX, -RYX 
GCOL  O, 3: MOVE  X IX, Y1X : PL0T1 , -RXX, -RYX 
GCOL  O, 6: MOVE  X2X, Y2X : PLOT 1 , -RXX, -RYX 
NEXTiFOR  J=1  TO  4444:NEXT 
COLOUR  15O:COL0UR  O 
PRINTTPB  (17,0)  ;  " 

=0  THEN  PRINTTPB < 17,  1) O "ELSE  PRINTTPB < 17,  1 ); "  ";RP; 
PRINTTPB (17, 2) 

COLOUR  147 
PRINTTPB (O, O) ; " 

=0  THEN  PRINTTPB (O,  1 ) ; "  O  "  ELSE  PRINTTPB (O,  1 ); "  ";BP; 
PRINTTPB (O, 2) ; "  " 

OM=OM- 1 

IF  0M=1  THEN  1750 
IF  0M=0  THEN  1810 
COLOUR  148 : PRINTTPB (2, 29) ; " 

COLOUR  7 : PRINTTPB <2, 30) ; "  ";0M;"  omg.  tilbaoe  “ 
PRINTTPB (2,  31) " ; 

GOTO  1790 

COLOUR  145: COLOUR  7 
PRINTTPB (2,  29) ; " 

PRINTTPB (2,  30) ; "  Sidste  omgang!  " 

PRINTTPB (2, 31) "; 

FOR  Q=1  TO  7000:  NEXT 
CLSsGOTO  950 

IF  PP=BP  COLOUR  144 : PRINTTPB  <5, 2) " 

IF  PP=BP  COLOUR  2 s PRINTTPB (5, 3) "  UPFGJORT  “ 

IF  PP=BP  COLOUR  144 : PRINTTPB (5,  4) " 

IF  PP  <BP  COLOUR  144 : PRINTTPB  <4, 2) " 

IF  PP  <BP  COLOUR  3 : PRINTTPB (4, 3) "  GUL  VINDER  “ 

IF  PP  <BP  COLOUR  3: PRINTTPB (4, 4) " 

IF  PP) BP  COLOUR  144: COLOUR  6 : PRINTTPB (4, 2) “ 

IF  PP) BP  PRINTTPB (4,  3) "  BLP  VINDER  " 

IF  PP) BP  PRINTTPB (4,  4)" 

COLOUR  145: FOR  1=15  TO  17 
PRINTTPB (7,  I ) " 

NEXT 

COLOUR  7 

PRINTTPB <7,  16) "  SLUT  " 

IF  WX=0  GOTO  2000 
COLOUR  148 : PRINTTPB (O,  28) " 

COLOUR  7 : PRINTTPB (O,  29) "Tryk  P  og  :  samtidig" 

PRINTTPB  (O,  30)  " 

GOTO  2050 

COLOUR  148 :  PRINTTPB  (O,  28)  "  •' 

COLOUR  7: PRINTTPB (O, 29) "  Tryk  begge  KNPPPER  " 

PRINTTPB  <0,  30)  "  " 

IF  (PDVPL (O) PND3) =3  GOTO  920 
GOTO  2030 

IF  INKEY-66  PND  INKEY-73  GOTO  920 
GOTO  2050 
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Rendez-Vous  er  et  rumspil  til 
Texas  99  4A.  og  er  pd  højde 
med  de  spil,  der  sælges  i  for¬ 
retningerne. 

Lars  Østerballe 


/  /  LARS  QSTERBALLE  19 

//// 

110  CALL  CLEAR  ::  CALL  SCREE 
N  (2) 

120  C=. 1  : :  BR=400  : :  RANDOM 
IZE  ::  CALL  PEEK (-28672, TALE 
) !  ER  TALESYNTHESIZEREN 
TILSLUTTET? 

130  DATA  FIVE,FOUR, THREE, TWO 
.ONE, ZERO.Q 

140  CALL  C0L0R(1, 16,1,2,7, 1, 
3,7, 1,4, 7.1) : :  FOR  F=5  TO  12 
::  CALL  COLOR (F, 13, 1 ) : : 

NEXT  F 


-350,-5,20)::  BR=BR— 5  ELSE  I 
F  K=VEN  OR  K=HOJ  THEN  CA 


TI 99  A 


/////////////////////// 
RENDEZ-VOUS  2.6  / 

VERSION  1.1 
/  LARS  QSTERBALLE  19 


150  CALL  COLOR (O, 11, 11) : :  GO 
SUB  820  ::  GOSUB  1340  ::  CAL 


L  MAGNIFY (3) : :  GOSUB  175 
O 

160  ! //SKEARM-GRAFIK+FASE// 
170  CALL  CLEAR  ::  FOR  F=1  TO 
15  ::  CALL  HCHAR (RND*23+1 , R 
ND*31+1, 33) : :  NEXT  F  :: 

CALL  COLOR (O, 11, 11) : :  CALL  H 
CHAR (24, 1,30,32) 

180  V=0  ::  A=0  ::  B=0  ::  CAL 
L  SPRITE (#1,100, 15,1,128, #2, 
96, 7+FL*4, 185, RND*255+1 , 

O, (RND-RND) *10) 

190  CALL  SOUND (-10, 110,0) 

200  IF  FL=0  THEN  240 
210  FLA=1  ::  IF  0.6  THEN  C= 
.  1 

220  CALL  COLOR (O, 8— FL, 8— FL) 
230  FOR  F=3  TO  3+FL  : :  CALL 
SPRITE (#F, 104, RND* 13+3, F*45— 
75, 120,0, (RND-RND) * (C*10 
+20) ) : :  NEXT  F 

240  DISPLAY  AT ( 1 , 1 ) : USING  "S 
CORE  ####  TOP  ####" 

: POINT, HIGH 

250  DISPLAY  AT (3, 1 ) : USING  "F 
ASE  NR.  #. #":FL+1+C: 

260  ! /////LANDINGSRUTINE//// 
270  CALL  KEY (3, K, S)::  A=A-(K 
=NED) + (K=OP) +C  : :  B=B— ( K=HO J 
) + (K=VEN) 

280  DISPLAY  AT (3, 19) : USING  " 

BRINT  ####" : BR 

290  IF  BR<=0  THEN  650 

300  IF  K=OP  THEN  CALL  SOUND ( 


OOD+WORK" ) 
600  FLAG=0 


LL  SOUND ( -350 ,-6,23)::  BR=BR 
-1 

310  CALL  POSITION (#1,X,Y):: 
IF  X>169  AND  X<200  THEN  CALL 
MOT I ON (#1,0,0, #2,0,0) : : 

CALL  CO I NC ( ALL, V) 

320  IF  X  >240  THEN  GOSUB  620 
330  IF  V  THEN  490  ELSE  IF  X> 
169  THEN  M*="  KOLLISION 

MED  JORD"  : :  GOTO  370 
340  IF  X< 169  THEN  CALL  CO I NC 
( ALL , V ) : :  IF  V  THEN  M*="  KO 


(ALL, V) : :  IF  V  THEN  M*="  KO 
LLISION  MED  ASTEROIDE"  : 

:  GOTO  370 

350  CALL  MOT I ON (#1,A,B)::  GO 
TO  270 

360  ! ////SPILLET  ER  SLUT//// 
370  CALL  DELSPRITE (#2, #3, #4, 
#5, #6)::  GOSUB  690  ::  FLAG=0 
: :  KRASH=0 

380  IF  TALE  THEN  CALL  SAYC'S 
ORRY+PARTNER") 

390  HIGH=MAX (HIGH, POINT) 

400  DISPLAY  AT (9, 1):M»: 

410  IF  POINT=HIGH  AND  POINT< 
>0  THEN  GOSUB  1460  ELSE  IF  B 
R>0  THEN  CALL  PAUSE (500) 


Rende 


420  DISPLAY  AT (9,1) 

430  P0INT=0  ::  BR=400  ::  C=. 
1  : :  FL=0  : :  FLA=0  : :  IF  TAL 
E  THEN  CALL  SAY ( "PRESS+A 
1 +KEY+TO+PL A Y+AGA IN") 

440  DISPLAY  AT ( 1 1 , 4) : "TRYK  R 
EDO  ELLER  BACK": 

450  DISPLAY  AT (9.10) : "GAME  O 
VER"  ::  FOR  F=1  TO  15  ::  CAL 


L  KEY (3, K, S) : :  IF  K=6  TH 
EN  170  ELSE  IF  K=15  THEN  GOS 


UB  1680  ::  GOTO  170 

460  NEXT  F  ::  DISPLAY  AT (9,1 

) : :  FOR  F=1  TO  15  : :  CALL  KE 

Y (3, K,S) : :  IF  K=6  THEN  1 

70  ELSE  IF  K=15  THEN  GOSUB  1 

680  ::  GOTO  170 

470  NEXT  F  : :  GOTO  450 

480  ! /ER  LANDING  FOR  HAARD?/ 

490  IF  A>=4  THEN  M*=" 

FART  FOR  HØJ"  ::  GOTO  370 
500  CALL  POSITION (#1,X,Y, #2, 
XX, YY)::  CALL  LOCATE (#1 , 169, 
Y) : :  BO=ABS ( 1 6-ABS ( YY- Y ) 

) 

510  DISPLAY  AT (9.9) : USING  "B 
ONUS  ###" : BO: : :  FOR  F=0  TO  3 
O  ::  CALL  SOUND (-99, 1 10. 

F , 600 , F , 1 OOO , F ) : :  NEXT  F  :: 
DISPLAY  AT (9,1) 

520  PO I NT=PO I NT +B0  ::  DISPLA 
Y  AT (1,1): USING  "SCORE  ## 
##  TOP  ####": PO I NT 

.HIGH 

530  FOR  F=HO  TO  110+B0*15  S 

TEP  4  ::  DISPLAY  AT(3,25):US 

ING  "####”: F+BR-1 10  ::  C 

ALL  SOUND (—199, F*2, 10) : :  NEX 

TF::  BR=BR+F-114 

540  IF  FLAG  THEN  570 

550  GOSUB  1020 

560  IF  BR<=0  THEN  650  ELSE  I 

F  KRASH  THEN  370  ELSE  IF  SUC 

CES  THEN  510 

570  IF  C< . 7  THEN  C=C+. 1 

580  IF  0.6  AND  FL<2  THEN  FL 

=FL+1 

590  IF  TALE  THEN  CALL  SAY ("G 


600  FLAG=0  : :  SUCCES=0  : :  CA 

LL  PAUSE (300)::  CALL  DELSPR I 

TE (ALL)::  GOTO  180 

610  ! ///// /FOR  HOEJT//////// 

620  DISPLAY  AT (9, 9) : "HIMMELS 

TREJF"; 

630  A=— A  ::  CALL  MOTION (#1,A 
, B) : :  FOR  F=0  TO  30  STEP  2  : 
:  CALL  SOUND (-99, 523, F) : 

:  NEXT  F  ::  DISPLAY  AT (9, 9): 


640  CALL  POSITION (#1, X,Y) : : 
RETURN 

650  DISPLAY  AT (3, 19) : USING  " 
BRINT  ####": O 

660  GOSUB  740  ::  DISPLAY  AT ( 
9,1) 

670  GOSUB  680  : :  FLAG=0  : :  K 

RASH=0  : :  GOTO  390 

680  ! //////EKSPLOSION/////// 

690  CALL  POSITION (#1,X,Y):: 

CALL  DELSPRITE (#5, #6) : :  IF  Y 

>248  THEN  Y=248 

700  CALL  MAGNIFY (1)::  CALL  S 

PR I TE (#1 , 100, 7, X , Y,— 20, —20, # 

2, 101,5, X+8, Y, —5, —40) 

710  CALL  SPRITE (#3, 102,3,  X,Y 
+8, -20, 20, #4, 103, 1 1 , X+8, Y+8, 
—5,40) 

720  FOR  F=0  TO  30  :  :  CALL  SO 
UND (— 99, — 5,F) : :  NEXT  F  : :  CA 
LL  DELSPRITE (ALL) :  :  CALL 
MAGN I FY ( 3 ) : :  RETURN 


730  ! ////INTET  BRAENDSTOF/// 
740  DISPLAY  AT  (9, 9):  "NUL  BRIE 
NDSTOF" 

750  FOR  F=0  TO  30  : :  CALL  SO 
UND (-99, 262, F) : :  NEXT  F  ::  M 

<£_  II  II 

760  CALL  DELSPRITE (#3, #4, #5) 

770  FOR  F=1  TO  90 

780  CALL  MOTION (#1,A+F,B) 

790  CALL  POSITION (#1, X,Y> : : 
IF  X >169  AND  X<200  THEN  RETU 
RN 

BOO  CALL  POS I T I ON (#1,X,Y):: 
IF  X >169  AND  X<200  THEN  RETU 
RN 

BIO  NEXT  F  ::  RETURN 

820  ! //////KARAKTERER/////// 

830  CALL  CHAR ( 33 , " 1 " ) 

840  CALL  CHAR (40, " 001C387070 
70381C00381C0E0E0E1C38" , 63,  " 
007CEEEE0E3C003C " ) 

850  CALL  CHAR (100 ,"804023173 
F6C6C 1 C6FEFEFFFE34747E0090AC 
4FBF8949498F6F7F7FFC7E2E 
207") 

860  CALL  CHAR ( 104, "00001 36C8 
3COB8C68 1 80404834030 1 0000C03 
00E9161 12C5398545522246B 
8") 

870  CALL  CHAR ( 64, " 3C42BDA 1 A 1 
BD423C00FEEEEEEEFEEEEE00FEEE 
EEFCEEEEFE007CEEEEE0EEEE 
7C"  ) 

880  CALL  CHAR(6B  "OOFCEEEEEE 
EEEEFCOOFEEEEOFOEOEEFEOOFEEE 
EOFOEOEOEOOOFEEEEEEOFEEE 
FE") 

890  CALL  CHAR ( 72, “ OOEEEEEEFE 
EEEEEE00FE3838383838FE00FEEE 
OEOEEEEEFEOOEEEEEEF8EEEE 
EE") 

900  CALL  CHAR(76  "OOEOEOEOEO 
EEEEFE00EEFED6C6EEEEEE00CEEE 
FEFEFEEEE6007CEEEEEEEEEE 
7C" ) 

910  CALL  CHAR ( 80, " OOFEEEEEEE 
FEEOEOOOFEEEEEEEEEECFAOOFEEE 
EEEEFCEEEEOOFEEEEOFEOEEE 
FE") 

920  CALL  CHAR ( 84, " 00FEFEBA38 
38383800EEEEEEEEEEEEFE00EEEE 
EEEEEE6C3800EEEEEEEEC6D6 
FE") 

930  CALL  CHAR ( 88,"OOEEEEFE38 
FEEEEE00EEEEEE7C38383800FEFE 
3E7CF8FEFE " ) 

940  CALL  CHAR ( 48, " 007CEEEEEE 
EEEE7C003878F8383838FE00FEEE 
OEFEEOEEFEOOFEEEOE 1 COEEE 
FE") 

950  CALL  CHAR (52,"00EEEEEEEE 
FEOEOEOOFEEOFEOEEEEEFEOOFEEE 
EOFEEEEEFEOOFEEEOE 1 C3838 

3øii  ) 

960  Q*= " FFFFFFFFFFFFFFFF "  : : 
Bt=RPT* ( "O" , 16) : :  CALL  CHAR 
( 96 ,  Q$&B$&Q$S<B$ ) 

970  CALL  CHAR (56, " OOFEEEEEFE 
EEEEFEOOFEEEEEFEOEEEFE " ) 

980  CALL  CHAR (108, "070402313 
F2ABF7F7FBF2 1311 9O0O7O3EO2O4 
08CFC54FDFEFEFDFCFCF8FOE 
0CM) 

990  CALL  CHAR (91," 007EDAD8FC 
D8DADE" ,92, " 007AE4EEFEEE4EBC 
",  93, "0038007CEEFEEEEE") 

1000  RETURN 

1010  ! ////SAMMENKOBLING///// 
1020  FJ_AG=  1  ::  A=0  ::  B=0  :: 

CALL  SPRITE (#6, 108, RND* 13+3 
, 26,RND*255+1 , O, (RND-RND 
) * (C* 10+13) ) 
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1030  DISPLAY  AT (9,9) : "RENDEZ 
-V0US"  : :  FOR  F=0  TO  30  : :  C 
ALL  SOUND ( —99 , 1 200 , F ) : : 

NEXT  F 

1040  RESTORE  ::  GOSUB  1240 
1050  CALL  KEY (3, K-S) : :  IF  K< 
>0P  THEN  1050  ELSE  DISPLAY  A 
T(9.  1) 

1060  CALL  KEY (3, K, S) : :  A=A- ( 
K=NED ) + ( K=OP ) +C  : :  B=B— ( K=HO 
J)+(K=VEN) 

1070  IF  K=OP  THEN  CALL  SOUND 
(-350,-5,20)::  BR=BR-5  ELSE 
IF  K=VEN  OR  K=HOJ  THEN  C 
ALL  SOUND ( -350 ,-6,23)::  BR=B 
R-l 

1080  DISPLAY  AT (3, 19) :USING 
"BRINT  ####": BR 
1090  IF  BR<=0  THEN  RETURN 
1100  CALL  POS I T I ON ( # 1 , X , Y ) 
1110  IF  X >169  AND  X<20O  THEN 
KRASH=1  ::  M*="  KOLLISI 

ON  MED  JORD"  : :  RETURN 
1120  CALL  POS I T I ON (#1,X,Y) 
1130  IF  X<47  THEN  1180 
1140  CALL  CO I NC ( ALL , V ) : :  IF 
V  AND  X< 169  THEN  KRASH=1  :: 
M*="  KOLLISION  MED  ASTE 
RO I DE"  ::  RETURN 
1150  IF  X<47  THEN  1180 
1160  IF  X >240  THEN  GOSUB  620 
1170  CALL  MOTION (#1, A,B) :  :  G 
OTO  1060 

1180  CALL  CO I NC (ALL, V) : :  IF 
NOT  V  THEN  1160 
1190  CALL  MOTION (#1,0, O, #6, O 
,0)::  CALL  POSITION (#1 , X , Y, # 
6.  XX, YY) 

1200  IF  A<— 4  OR  A>4  THEN  KRA 
SH=1  ::  M*="  FART  FOR 

HØJ"  ::  RETURN 
1210  IF  X<26  THEN  KRASH= 1  :: 

M*="  KOLLISION  MED  SKIB 

"  : :  RETURN 

1220  SUCCES=1  ::  B0=ABS(16-A 
BS(YY-Y))::  RETURN 
1230  ! /////NEDTAELLING////// 
1240  FOR  F=5  TO  O  STEP  -1 
1250  DISPLAY  AT (9, 9) : USING  " 
T (ELLING  #":F: 

1260  IF  TALE  THEN  READ  A*  :: 

CALL  SAY ( A* ) ELSE  GOSUB  1320 
1270  NEXT  F 

1280  DISPLAY  AT(9,9):"  LIFT 
OFF  ": 

1290  IF  TALE  THEN  CALL  SAY ( " 
CONNECTED” ) ELSE  GOSUB  1320 
1300  RETURN 

1310  ! /////////BIP////////// 
1320  CALL  SOUND (-10, 2000, O) : 

:  FOR  P=1  TO  200  ::  NEXT  P  : 

:  RETURN 

1330  ! ////START-BILLEDE///// 
1340  CALL  HCHAR (1,3, 30 , 30 ) : : 

CALL  HCHAR (24, 3. 30, 30) : :  CA 
LL  VCHAR (2, 3,30, 22) :  :  CA 
LL  VCHAR (2, 32, 30, 22) 

1350  DISPLAY  AT (7, 8) : "RENDEZ 
-VOUS  2.6": 

1360  DISPLAY  AT ( 1 1 , 13) : "3  19 
84":::  DISPLAY  AT ( 13, 8) : "LAR 
S  ØSTERBALLE"; 

1370  IF  TALE  THEN  CALL  SAY ( " 
WELL+COME+TO+THE 1 +SPACE+COMM 
AND") 

1380  DISPLAY  AT ( 17, 7) : "VÆLG 
TASTER  (J/N)?": 

1390  CALL  KEY (3, K, S) : :  IF  K< 
>74  AND  K<  >78  THEN  1390 
1400  IF  K=74  THEN  GOSUB  1550 
::  GOTO  1420 
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1410  OP=69  ::  NED=88  ::  HOJ= 
68  ::  VEN=83  ::  DISPLAY  AT ( 1 
7,7):"  BRUG  PILENE. 

" : : :  CALL  PAUSE (200) : :  DISPL 
AY  AT (17, 7) : " 

II  „ 

14^0  DISPLAY  AT (17, 3):" 

VÆLG  NIVEAU?  “ : 

1430  CALL  KEY (3, K, S) : :  IF  S< 
=0  THEN  1430  ELSE  IF  K=74  TH 
EN  GOSUB  1680 
1440  CALL  CLEAR  ::  RETURN 
1450  ! //HIGHSCORE-MELDING/// 
1460  FOR  F=1  TO  3 
1470  DISPLAY  AT ( 1 , 1 ): USING  " 
SCORE  ####": POINT: 

1480  FOR  G=0  TO  30  STEP  2 
1490  CALL  SOUND (-99, 330, G) 
1500  NEXT  G 

1510  DISPLAY  ATC1, 1) : RPT* ( " 

•i  13)  - 

lé>20  &ALL  PAUSE  ( 100)  :  :  NEXT 
F 

1530  DISPLAY  AT ( 1 , 1 ): USING  " 

SCORE  ####  TOP  #### 

" : PO I NT , H I GH : : :  RETURN 

1540  I/////VAELG  TASTER///// 

1550  CALL  CLEAR 

1560  CALL  HCHAR (1,3, 30, 30) : : 

CALL  HCHAR (24, 3, 30, 30)  :  :  CA 
LL  VCHAR (2, 3. 30,22) : :  CA 
LL  VCHAR (2, 32, 30, 22) 

1570  DISPLAY  AT (3, 3) : "HVILKE 
N  TAST  FOR:"; 

1580  DISPLAY  AT (5, 3) : "OP" : 

1 590  ACCEPT  AT ( 5 , 1 1 ) VAL I DATE 
(UALPHA, NUMERIC, " : /=" ) BEEP  S 
IZE(1):0P*  ::  OP=ASC(OP* 

) 

1600  DISPLAY  AT (7, 3) : "NED": 
1610  ACCEPT  AT ( 7 , 11) VAL I DATE 
( UALPHA,  NUMER IC,  '’;/=" )  BEEP  S 
IZE(1):NED*  ::  NED=ASC (N 
ED*) 

1620  DISPLAY  AT (9, 3) : "VENSTR 

16^0  ACCEPT  AT (9, 11) VALIDATE 
(UALPHA,  NUMERIC,  r,:/=”)  BEEP  S 
I ZE ( 1 ) : VEN*  ::  VEN=ASC(V 
EN*) 

1640  DISPLAY  AT ( 1 1 , 3) : "HØJRE 
•»  . 

1&50  ACCEPT  AT(11, 11) VALIDAT 
E  (UALPHA,  NUMERIC,  : /="  )  BEEP 
SIZE ( 1 ) : HOJ*  ::  HOJ=ASC( 
HOJ*) 

1660  GOSUB  1320  : :  RETURN 
1670  ! /VAELG  SVAERHEDSGRAD// 
1680  CALL  CLEAR  : :  CALL  HCHA 
R( 1,3, 30, 30) : :  CALL  HCHAR (24 
,3,30,30)::  CALL  VCHAR (2 
,3,30,22)::  CALL  VCHAR (2, 32, 

So! 225 

1690  DISPLAY  AT ( 1 O. 3) : "SVÆRM 


EDSGRAD?": 

1700  DISPLAY  AT  ( 12,  3)  :  "VÆLG 
1,2  ELLER  3": 

1710  ACCEPT  AT (12, 20) BEEP  VA 
LIDATE ( " 123" ) SIZE ( 1 ) : L  ::  FL 
=L— 1 

1720  FOR  F=0  TO  30  STEP  10  : 

:  CALL  SOUND (-99, 3000, F, 2900 
, F, 3100, F) : :  NEXT  F 
1730  RETURN 

1740  ! ////INSTRUKTIONER///// 
1750  CALL  SCREEN (15)::  DISPL 
AY  AT ( 1 , 1 ) : "  RENDEZ-VOU 

r»  2  ^  *V»  *V#  'V'V 
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1760  DISPLAY  AT (4, 1 ) : "LAND  D 
IT  RUMSKIB  SÅ  SIKKERT 

SO 

M  MULIGT  PÅ  KLODEN  ’QUAQ’." 

1770  DISPLAY  AT (8, 1 ) : "FOR  AT 
FA  FLEST  POINTS,  SKAL 

DU 

LANDE  NØJAGTIGT  PÅ  DEN" 

1780  DISPLAY  AT ( 12, 1 ) : "LILLE 
PLATFORM,  DER  BEVÆGER 

S 

I G  PÅ  OVERFLADEN. " 

1790  DISPLAY  AT ( 16, 1 ) : "LAND 
IKKE  FOR  HURTIGT  OG 

I 

SÆR  IKKE  VED  SIDEN  AF. . . " 
1800  DISPLAY  AT(20, 1) : "NAR  D 
U  ER  LANDET  ER  DIN 

N 

ÆSTE  OPGAVE  AT  LAVE  EN  GOD" 
1810  DISPLAY  AT (24,1) : "SAMME 
NKOBLING  MED  ’EAGLEN’** 

1820  GOSUB  1910 

1830  DISPLAY  AT(i,l):"HER  SK 

AL  DU  LIGELEDES  VÆRE 

FO 

RSIGTIG,  OG  LAND  IKKE  PÅ" 
1840  DISPLAY  AT (5, 1 ): "TOPPEN 
AF  FARTØJET. . . . 

FO 

R  HVER  AF  DISSE  FASER  DU" 
1850  DISPLAY  AT (9, 1 ) : "FULDFØ 
RER,  VIL  TYNGEKRAFTEN 

ST 

IGE (SE  'FASE  NR’),  OG  NAR" 
1860  DISPLAY  AT (13, 1):"DU  HA 
R  GENNEMFØRT  SEKS  FASER 

B 

LIVER  DU  SENDT  VIDERE  TIL" 
1870  DISPLAY  AT ( 17,1 ): "NÆSTE 
SKÆRM,  HVOR  NYE  FOR- 

H 

INDRINGER  DUKKER  OP. " 

1880  DISPLAY  AT(24,1):" 

HELD  OG  LYKKE...” 

1890  GOSUB  1910  ::  CALL  SCRE 
EN (2) : :  RETURN 
1900  ! ///TILFAELDIGE  LYDE/// 
1910  TQ=RND* 1000+ 140  ::  FOR 
F=0  TO  30  STEP  2  : :  CALL  KEY 
(3, K, S) : :  IF  S  THEN  1930 
ELSE  CALL  SOUND (-99, TQ+F,F) 

: :  CALL  SOUND ( -99 , TQ+ 1 00+F , F 
) 

1920  NEXT  F  ::  GOTO  1910 
1930  CALL  CLEAR  ::  RETURN 
1940  ! ////PAUSE  RUTINE////// 
1950  SUB  PAUSE ( X ) : :  FOR  F=1 
TO  X  : :  NEXT  F  : :  SUBEND 
1960  !////////////////////// 
1970  END 
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I  programmet  har  du  mulig¬ 
hed  for  15  poster  i  hver  må¬ 
ned  og  startes  med  GOTO 
3720  den  første  gang,  det  kø¬ 
res.  Dette  gøres,  for  at  få  de 
danske  karakterer  genereret. 
Programmet  har  mulighed  for 
at  oprette  budgetter,  analy¬ 
ser,  indtaste  indtægt  og  se 
månedens  forbrug.  Som  en 
ekstra  finesse  bliver  budget¬ 
posterne  automatisk  sat  i  alfa¬ 
betisk  orden.  □ 

OleL.  Larsen 

1000  REM  HJEddE-BUDGETd  OLE  L.  LARSEN 
1010  REN  OPRETTE  BUDGET 
1020  DIN  AC15, 12) 

1030  DIN  A*( 15, 12,15) 

1040  DATA  "JANUAR”, "FEBRUAR", "NARTS'V'AP 
RIL", "NAJ  ", "JUNI", "JUL  I "," AUGUST", "SEPTE 
NBER", "OKTOBER", "NOUENBER" , "0ECEN8ER" 
1050  OIN  d*C12,9) 

1060  RESTORE 
1070  FOR  d=l  TO  12 
1080  READ  d*(d) 

1090  NEXT  N 

1100  LET  BI  =0  :  LET  BI  1=0:  LET  BI2=0:  LET 
BI 3=0  :  LET  BI4=0 

1110  PRINT  INK  li  INUERSE  1 iAT  0,0i"  BU 
DGET  PROGRAN 

1120  PRINT  INK  7i  PAPER  1 iAT  16,0  i"  D 
ER  ER  PLADS  TIL  15  POSTER 
1130  PRINT  INK  7i  PAPER  1 iAT  17, Øi"  SKR 
IU  >X’  1  DEN  DU  IKKE  BRUGER  " 

1140  BEEP  .2,20:  INPUT  PAPER  6  i "HUILKET 
hR  DsKKER  BUDGETTET  " iT 
1150  FOR  Q=1  TO  15 
1160  PRINT  AT  Q.2-LEN  STR*  QiQ 
1170  SEEP  .2,20:  INPUT  PAPER  6  i "NAUN  Ph 
UDGIFTEN  "i  LINE  2* 

1180  LET  A*CQ, 1)=2* 

1190  PRINT  AT  Q,3iA*CQ,l)i 
1200  NEXT  Q 
1210  CLS 

1220  FOR  0=1  TO  15 
1230  FOR  N=1  TO  12 

1240  PRINT  INK  li  INUERSE  1 iAT  ø,Øi"IND 
TAST  BEL  IB  FOR 

1250  PRINT  OUER  li  FLASH  1 iAT  0,17iA*[Q 

,1) 

1260  PRINT  INK  7i  PAPER  1 iAT  16,øi"SKRl 
U  0  I  OE  POSTER  DER  HEDDER  X" 

1270  PRINT  AT  N.2-LEN  STR*  NiNiAT  N,3;N* 
CH)S"  =  "  i 

1280  BEEP  .2,20:  INPUT  -  PAPER  6  i "BEL  IB  F 
OR  dh NEDEN  "iACQ.N) 

1290  PRINT  AT  N.25-LEN  STR*  ACQ.N) JACQ.N 
) iAT  N, 27  i "kr . " 

1300  NEXT  N 

1310  PRINT  INK  7 i  PAPER  1 iAT  18, øi"  E 
R  DISSE  TAL  RIGTIGE  CJ'N) 

1320  PAUSE  0 

1330  IF  INKEY*="J"  AND  Q<16  THEN  CLS  i 
NEXT  Q 

1340  IF  INKEY*="J"  AND  Q>15  THEN  GO  TO 
1370 


1350  IF  INKEY*="N"  THEN  CLS  :  GO  TO  123 
0 

1360  GO  TO  1320 

1370  GO  SUB  3120 

1380  GO  TO  3330 

1390  REM  BUDGET  OUERSIGT 

1400  LET  H=1 

1410  CLS  :  PRINT  INK  li  INUERSE  1 iAT  0, 
Øi"  BUDGET  OUERSIGT 

1420  PRINT  OUER  li  FLASH  1 iAT  0,18;n*tn 
) 

1430  PRINT  PAPER  6 iAT  ø,28;Y 

1440  GO  SUB  3230 

1450  LET  T0=0 

1460  FOR  T=1  TO  15 

1470  LET  T0=T0tACT,d) 

1480  NEXT  T 

1490  PRINT  BR1GHT  1 iAT  17, 2  i "SADLEDE  UD 
GIFTER  I  "if1*Cn) 

1500  PRINT  BRIGHT  1 iAT  18, 1 3  i  TO ; "  kr." 
1510  PRINT  PAPER  6;  BRIGHT  li  INK  0 iAT 
20, 3, "'5  =  TILBAGE  8  =  FREtl" 

1520  GO  SUB  3300 
1530  PAUSE  0 

1540  IF  1NKEY*="0"  THEN  GO  TO  3330 
1550  IF  1NKEY*="5"  THEN  LET  d=d-l :  GO  T 
0  1580 

1560  IF  INKEY*="8"  THEN  LET  d=dtl  :  GO  T 
0  1580 

1570  GO  TO  1530 

1580  IF  f1<l  THEN  LET  11=1 

1590  IF  f1>12  THEN  LET  n=12 

1600  GO  TO  1410 

1610  REM  RETTE  BELIB  I  BUDGET 

1620  CLS 

1630  PRINT  INK  li  INUERSE  1 iAT  0,0;"  RE 
TTE  BELIB  I  BUDGET 

1640  FOR  Q=1  TO  15:  PRINT  AT  Q, 3-LEN  STR 
*  QiQ:  PRINT  AT  Q,5;A*CQ,1):  NEXT  Q 
1650  PRINT  PAPER  li  INK  7;AT  17,0;" 

INDTAST  »ø<<  FOR  HENT 
1660  BEEP  .2,20:  INPUT  PAPER  6;"INDTAST 
NUHHERET  Ph  DEN  BUDGET-  POST  DU  UIL  RET 
TE  ";Q 

1670  IF  Q=ø  THEN  GO  TO  3330 
1680  CLS 

1690  PRINT  INK  li  INUERSE  1 iAT  0,0;"  RE 
TTE  BELIB  I 

1700  PRINT  OUER  li  FLASH  1 ;AT  0,16;A*CQ 

,1) 

1710  FOR  n=l  TO  12 

1720  PRINT  AT  11,  3-LEN  STR*  11  iPI :  PRINT  AT 

n,  5';n*cn);"=" ; 

1730  PRINT  AT  d,25-LEN  STR*  ACQ,  11)  ;ACQ,  d 
) iAT  n,27i”kr. " 

1740  NEXT  11 

1750  PRINT  PAPER  li  INK  7 SAT  17, øi" 
INDTAST  »ø<<  FOR  HENY 
1760  BEEP  .2,20:  INPUT  PAPER  6  i " INDTAST 
NUddERET  Ph  Uh  NED  DER  SKAL  RETTES  "id 
1770  IF  d=0  THEN  GO  TO  3330 
1780  PRINT  AT  (1,15;" 

1790  PRINT  AT  17,0!" 

1800  BEEP  2,20:  INPUT  PAPER  6  i "NYT  BEL 
IB  “JArQ.d) 

1810  PRINT  AT  (1,25-LEN  STR«  ACQ,  d)  iACQ, d 
)  iAT  d,  27 ;  "k.r  .  " 

1820  PRINT  PAPER  li  INK  7  SAT  17, øi" 
INDTAST  ?70<<  FOR  HENT 
1830  GO  TQ  1690 
1840  REd  INDTESTE  INOTsGT 
1850  CLS 

1860  PRINT  INK  li  BRIGHT  1 iAT  0,0;"  IND 
T*GTER  FOR  HELE  hRET 

1870  PRINT  AT  2,0;"1  =.  BRUTTOINDTsGT  "  iA 
T  2, 23J  "kr.  “ 

1880  PRINT  AT  4,ø;"2  =  hRLIG  RENTEINDTsG 
T  "iAT  4, 29  i "kr . " 

1890  PRINT  AT  6,0;"3  =  AKTIE-UDBYTTE  "JA 
T  6,29 i "kr . " 

1900  PRINT  AT  8, 0 i "4  =  ANDRE  INDTsGTER  " 
iAT  8,29i"kr." 

1910  PRINT  AT  1 0 , 0  i " 5  =  SORT  ARBEJDE  " iA 
T  10, 29  l"kr . " 

1920  PRINT  AT  2,28-LEN  STR*  BI iBI 
1930  PRINT  AJ  4,28-LEN  STR*  Bil iBI 1 
1940  PRINT  AT  6, 28-LEN  STR«  BI2;BI2 
1950  PRINT  AT  8, 28-LEN  STR*  B13;BI3 
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1360  PRINT  AT  10,28-LEN  STR*  BI4;BI4 
1320  PRINT  BT  11,0;" _ 

1380  PRINT  PAPER  1J  INK  7;AT  13, ØJ"  TR 
TK  Ph  DET  TAL  DU  UIL  RETTE  " 

1330  LET.  BIT=8I+BI1+BI2  +  B13+8I4 
2000  PRINT  AT  17, ø  j "hRLIG  BRUTTO  INDTsGT 
"  JBIT';”  kr." 

2010  PRINT  AT  13,0;"  INDTsGT  PR.  Dh NED 
" ;INT  CBI T/12) ; "  kr." 

2020  GO  SUB  3300 
2030  PAUSE  ø 

2040  IF  1NKEY*="0"  THEN  GO  TO  3330 

2050  IF  INKEY*=” 1 ”  THEN  GO  TO  2110 

2060  IF  1NKEY*="2"  THEN  GO  TO  2130 

2070  IF  1NKEY*="3"  THEN  GO  TO  2150 

2080  IF  INKEY*="4"  THEN  GO  TO  2170 

2030  IF  INKEY*="5"  THEN  GO  TO  2130 

2100  GO  TO  2030 

21 JØ  BEEP  .2,20:  INPUT  PAPER  6;"hRLJG  B 
RUTTOINDTsGT  " ;BI 
2120  GO  TO  1840 

2130  BEEP  .2,20:  INPUT  PAPER  6;"hRLIG  R 
ENTE-INDTsGT  " ;BI 1 
2140  GO  TO  1840 

2150  BEEP  .2,20:  INPUT  PAi=ER  6;  "AKTIE  U 
DBYTTE  "iBI2 
2160  GO  TO  1840 

2170  BEEP  .2,20:  INPUT  PAPER  6 ; "ANDRE  1 
NDTsGTER  ” ;BI3 
2180  GO  TO  1840 

2130  BEEP  .2,20:  INPUT  PAPER  6  i "SORT  AR 

BEJDE  " ;BI4 

2200  GO  TO  1840 

2210  REN  BUDGET  ANALYSE 

2220  LET  SAD=ø 

2230  CL S 

2240  LET  X=0 

2250  PRINT  INK  1;  INUERSE  1 ;AT  ø,0;"  BU 

DGET-ANALYSE  FOR  HELE  hRET 

2260  FOR  0=1  TO  15 

2270  FOR  N=1  TO  12 

2280  LET  X=X+ACQ,D) 

2230  NEXT  N 

2300  PRINT  AT  Q, 2-LEN  STR*  Q ;0 ; AT  Q,3;A* 
CQ, 1)1"*"; 

2310  PRINT  AT  Q.25-LEN  STR*  X;X;AT  Q,27l 
"kr.  “ 

2320  LET  SAD=SAD+X 

2330  LET  X=0 

2340  NEXT  O 

2350  PRINT  OUER  HAT  15,0;" _ 

2360  PRINT  INK  3;AT  16,0;"  SADLEDE  IND 
TsGTER  "iBITi"  kr." 

2370  PRINT  INK  3;AT  17,0;"  INDTsGT  PR. 
DhNEO  " i INT  C8ITH2);"  kr . " 

2380  PRINT  INK  2;AT  18,0;"  SADLEDE  UDG 
IFTER  " ;SAO ; “  kr." 

2330  PRINT  INK  2;AT  13,0;"  DhNEDLIGE  U 
DG1FTER  ■• ;  INT  CSAD^12);"  kr." 

2400  PRINT  INK  1 ;AT  20,0; "TIL  FORBRUG  " 
;INT  C  CB1-SADH12) J "  kr.  pr.  DhNED" 

2410  GO  SUB  3300 
2420  PAUSE  0 

2430  IF  1NKEY*="0"  THEN  GO  TO  3330 
2440  GO  TO  2420 
2430  RED  FJERNE  BUDGETPOSTER 
2460  CLS 

2470  PRINT  INK  lj  INUERSE  1 ;AT  ø,øi"  FJ 
ERNE  BUDGETPOSTER 
2480  FOR  0=1  TO  15 

2430  PRINT  AT  Q, 2-LEN  STR*  QiQiAT  Q,3;A* 
CO,  1) 

2500  NEXT  Q 
2510  GO  SUB  3300 

2520  PRINT  INK  7;  PAPER  1 ! AT  16,0;"HUIL 
KEN  BUDGETPOST  UIL  DU  FJERNE" 

2530  BEEP  .2,20:  INPUT  Q 

2540  IF  Q=0  THEN  GO  TO  3330 

2550  LET  A*CQ, 1 )="X 

2560  FOR  D=1  TO  12 

2570  LET  A(Q,D)=0 

2580  NEXT  D 

2530  GO  SUB  3120 

2600  CLS 

2610  PRINT  INK  1;  INUERSE  1 ;AT  0,0;"  FJ 
ERNE  BUDGETPOSTER 
2620  FOR  Q=1  TO  15 


2630  PRINT  AT  Q, 2-LEN  STR*  Q;Q;AT  Q,3;A* 
CQ,  1) 

2640  NEXT  Q 

2650  BEEP  .2,20:  PRINT  INK  7;  PAPER  1 ;A 
T  16,0; "UIL  DU  LAUE  EN  NY  BUDGETPOST  J^N 

2660  PAUSE  0 

2670  IF  INKEY*=”N"  THEN  GO  TO  2700 

2680  IF  1NKEY*="J"  THEN  GO  TO  2760 

2630  GO  TO  2660 

2700  BEEP  .2,20:  PRINT  INK  7;  PAPER  1 ;A 
T  16,ø;"UIL  DU  FJERNE  FLERE  BUDGETPOSTER 

2710  PRINT  INK  7;  PAPER  1  ;AT  17,14! " C J*' 
NJ” 

2720  PAUSE  0 

2730  IF  INKEY*="N"  THEN  GO  TO  3330 

2740  IF  INKEY*="J"  THEN  GO  TO  2450 

2750  GO  TO  2720 

2760  RED  OPRETTE  NY  BUDGETPOST 
2770  CLS 

2780  PRINT  INK  li  INUERSE  1  i AT  0,0!”  OP 
RETTE  NY  BUDGETPOST 
2730  FOR  Q=]  TO  15 

2800  PRINT  AT  Q, 2-LEN  STR*  QiQiAT  Q,3;A* 
(Q,  1) 

2810  NEXT  Q 

2820  PRINT  OUER  1 ; AT  15,0;" _ 

2830  FOR  Q=1  TO  15 

2840  IF  A*CQ, 1 )="X  "  THEN 

GO  TO  2310 
2850  NEXT  Q 

2860  BEEP  .2,20:  PRINT  INK  7;  PAPER  1  JA 
T  16,0; "DER  ER  IKKE  PLADS  TIL  EN  NY  POST 

2870  GO  SUB  3300 
2880  PAUSE  ø 

2830  IF  INKEY*="0"  THEN  GO  TO  3330 
2300  GO  TO  2880 

2310  BEEP  .2,20:  INPUT  PAPER  6;'NAUN  TI 
L  BUDGETPOST  ?  "i  LINE  2* 

2320  LET  A* C Q, 1 )=Z* 

2330  CLS 

2340  PRINT  INK  1;  INUERSE  1 ;AT  0,0;"IND 
TAST  BEL  IB  I 

2350  PRINT  OUER  lj  FLASH  HAT  ø,16;A*CQ 

.1) 

2360  FOR  D=1  TO  12 

2370  PRINT  AT  D.3-LEN  STR*  D ;D :  PRINT  AT 
D,  5  ;D*CD)  i  ''  =  " ; 

2380  PRINT  AT  D.25-LEN  STR*  ACQ,D) ;A(Q,D 
) ;AT  D, 27 i "kr . " 

2330  NEXT  D 

3000  FOR  D=]  TO  12 

3010  PRINT  AT  D, 15;" 

3020  BEEP  .2,20:  INPUT  PAPER  6; "NYT  BEL 
fB  "iACQ.D) 

3030  PRINT  AT  D.25-LEN  STR*  ACQ,D) ;ACQ,D 
);AT  D, 27 ; "kr . " 

3040  NEXT  D 
3050  GO  SUB  3120 

3060  BEEP  .2,20:  PRINT  INK  7;  PAPER  1 ;A 
T  17,0;"  UIL  DU  LAUE  FLERE  BUDGETPOSTER 

3070  PRINT  INK  7;  PAPER  1 ;AT  18, 14;"CJ' 
N)" 

3080  PAUSE  0 

3030  IF  INKEY*="N"  THEN  GO  TO  3330 

3100  IF  JNKEY*="J"  THEN  GO  TO  2760 

3110  GO  TO  3080 

3120  RED  ALFA8ET I  SK  ORDEN 

3130  PRINT  AT  17,0;"  UENT  LIGE  ET  IJ 

EBL1K 

3140  FOR  K=1  TO  15:  POR  C=Ktl  TO  15 
3150  IF  A*CK, 1 ) <=A*CC, 1 )  THEN  GO  TO  320 
0 

3160  FOR  D=1  TO  12 

3170  LET  E*=A*CK,D) :  LET  A*CK,D)=A*CC,D) 
:  LET  A*CC,D)=E* 

3180  LET  E=ACK,D):  lET  ACK, D)«AtC,D) :  uE 

T  ACC,D)=E 

3130  NEXT  D 

3200  NEXT  C 

3210  NEXT  K 

3220  RETURN 

3230  RED  OPSTILLING 

3240  FOR  Q=1  TO  15 


3250  PRINT  AT  Q, 2-LEN  STR*  Q;Q;AT  Q,3;A* 
f  0 , 1 3  ;"=•• ; 

3260  PRINT  AT  Q.25-LEN  STR* 'ACQ, D) ;ACQ,  D 

Tjat  Q , 27 ; " k r . " 

3270  NEXT  Q 

3280  PRINT  OUER  1 ;AT  15,0;" _ 

3230  RETURN 

3300  RED  TRYK  0  FOR  DENY 
3310  PRINT  INK  0;  PAPER  6;AT  21,3;”TRYK 
Ph  >>0«TAST  FOR  DENY" 

3320  RETURN 
3330  RED  DENY 
3340  BORDER  4 
3350  CLS 

3360  POKE  23603,20 
3370  POKE  23658,8 

3380  PRINT  INUERSE  1 ;AT  0,0;“  DENY  DE 
NY  DENY  DENY  DENY  " 

3330  PRINT  >”  1  =  LAUE  NYT  BUDGET" 

3400  PRINT  >"  2  =  BUOGET  OUERSIGT" 

3410  PRINT  3  =  BUDGET  ANALYSE" 

3420  PRINT  >"  4  =  INDTASTE  INDTsGTER” 

3430  PRINT  >"  5  =  RETTE  BELfB  I  BUDGET" 

3440  PRINT  >"  6  =  FJERNE  BUDGET  POST" 

3450  PRINT  ’"  7  =  OPRETTE  NY  BUDGET  POST 

3460  PRINT  8  =  SAUE  DETTE  PROGRAD  DED 

DATA"  • 

3470  PRINT  PAPER  7;  INK  2;  FLASH  li”" 
UED  BREAK  BRUG  GOTO  3330 
3480  PAUSE  ø 

3430  IF  1NKEY*="1"  THEN  GO  TO  3580 

3500  IF  INKEY*="2"  THEN  GO  TO  1330 

3510  IF  INKEY*=”3"  THEN  GO  TO  2210 

3520  IF  INKEY*="4"  THEN  GO  TO  1840 

3530  IF  INKEY*="5"  THEN  GO  TO  1610 

3540  IF  INKEY*="6"  THEN  GO  TO  2450 

3550  IF  INKEY*="7"  THEN  GO  TO  2760 

3560  IF  INKEY*="8"  THEN  GO  TO  3650 

3570  GO  TO  3480 

3580  BEEP  .2,10:  BEEP  .2,20:  BEEP  .2,30: 
BEEP  .2,40:  BEEP  .2,50:  PRINT  BRIGHT  1 
!AT  18,0;"  44##  ER  DU  HELT  SIKKER?.  ### 
4  " 

3530  PRINT  BRIGHT  lj"  DU  SLETTER  ALLE  D 
E  DATA  DER  ER  " 

3600  PRINT  BRIGHT  li"  I  BUDGETTET  NU. 

TRYK  CJ/N)  " 

3610  PAUSE  0 

3620  IF  INKEY*="J"  THEN  RUN 

3630  IF  INKEY*="N"  THEN  GO  TO  3330 

3640  GO  TO  3610 

3650  RED  SAUE  ROUTINE 

3660  BEEP  .5,0 

3670  CLS  :  PRINT  AT  10,0;“  GIR  KLAR 
TIL  OPTAGELSE 

3680  SAUE  "BUDGET"  LINE  3720 
3630  PRINT  AT  10,0;"  SPOL  TILBAGE  FOR 
UERIFY 

3700  BEEP  1,0:  UERIFY  "BUDGET" 

3710  STOP 

3720  RED  DANSKE  BOGSTAUER 

3730  RESTORE  3750:  FOR  X=0  TO  7:  READ  S 

3740  POKE  USR  "S'rX.S 

3750  DATA  0,30,48,80,126,80,34,0 

3760  NEXT  X 

3770  RESTORE  3730:  FOR  X=0  TO  7:  READ  F 

3780  POKE  USR  "F"*X,F 
3730  DATA  0,60,70,74,82,38,60,0 
3800  NEXT  X 

3810  RESTORE  3830:  FOR  X=0  TO  7:  READ  H 

3820  POKE  USR  "H"+XiH 

3830  DATA  24,0,60,66,66,126,66,0 

3840  NEXT  X 

3850  GO  TO  3330 

3860  RED 

BYTES  FORBRUG 

3870  PRINT  Der  er  brugt  "  ;  tPEEK  236 

4 1 *256#PEEK  23642)-CPEEK  23635»256*PEEK 
23636);"  bytes":  PRINT  > ”  Der  er  " ;6553 
6-USR  7362;"  bytes  tilbage":  LET  mer=655 
36-USR  7362:  LET  <imer=mer/1024 :  PRINT  *" 
Oer  er  ca.  "JflNT  Cgmer  *  100)  )y  100  K 
ti  l bage " 

3880  STOP 
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Spectrum 

strenge 

4  rem  Kodningsprocedure 

1®  LET  L=LEN  X*:  LET  St=4*(INT 
C  l  /4 )  )  -3 :  LET  Y$="M.  IF  l  <3  THE 
N  LET  Y*=X$;  RETURN 

15  LET  vo=0;  DIM  X (4) :  IF  S t +6 
=  1  THEN  LET  +  GO  TO  10 

FOR  T=i  TO  St  STEP  4:  FOR  n 
*1  TO  4:  LET  xa=CODE  X*(r+n-l): 
LET  x  Cn)  sxa-46-7*  (xa  >*65)  -6#  Cxa  > 
■97)  +15* (xa*32)  ;  IF  x  tn)  >=64  OR 
X(n) <0  THEN  GO  TO  9999 

25  NEXT  n:  LET  qi=INT  IX (4) X16 
)  :  LET  Y*=Y$+CHR$  Cx  (1)  +64*ql)  ; 
LET  q2-INT  ( (X (4) -16*ql> /4) :  LET 
Y $  =sY $ +CHR $  CX  (2)  +64*q2)  :  LET  Y* 
=Y*+CHR*  CX  C3)  +64#  CX  C4)  -4*  t4#ql  + 
qzn  )  :  LET  vosvo+l;  NEXT  f:  LET 
Y  $  =Y  $  +X  $  (S  t  +4  TO  l)  :  RETURN 

50  REM  Udpr i n tn i ngsp r o ce du r e 


55  LET  l »LEN  X*: 

V  C4>  :  LET  Y*»" ; 

T  Y *=X$:  RETURN 
60  FOR  r  =1  TO  l - 
n-1  TO  3:  LET  X  tn) 
>  :  LET  y  Cn) =INT  Cx 
Cn)  ~x Cn) -64*y  tn) : 
4)  =y (l) #i6+y (2) #4  + 
TO  4:  LET  Yi=Y*+CH 
Cx  tn)  >  =12)  +6#  Cx  Cn) 
1 ) ) :  NEXT  n :  NEXT 
$  er  TO  );  RETURN 


DIM  X (4) .  DIM 
IF  l <3  THEN  LE 

S  STEP  3:  FOR 
aCODE  x$(r+n-i 
Cn)  X64>  :  LET  X 
NEXT  n ;  LET  X  C 
(3)  :  FOR  n  =1 
*  CX  Cn)  +46+7* 
>37)  -15#  Cx  Cn  )  s* 
C:  LET  Y$=Y*+X 


H 


Programmet  består  af  to  sub- 
mtiner  og  har  til  formål  at  re¬ 
ducere  længden  af  strenge, 
idet  den  første  subrutine  kan 
reducere  antallet  af  karakte¬ 
rer  i  en  vilkårlig  streng  med  1 
for  hver  fjerde  karakter.  Den 
anden  subrutine  kan  så  til 
gengæld  genskabe  den  op¬ 
rindelige  streng  i  fuld  læng¬ 
de. 

Programmet  vil  specielt  være 
anvendeligt  i  databasepro¬ 
grammer,  hvor  det  kan  give 
kapacitetsforøgelse,  som  sva¬ 
rer  til  typisk  5- 1 0  K,  ekstra  hu¬ 
kommelse  (48  K  Spectrum). 
Der  er  imidlertid  også  nogle 
begrænsninger: 

Strengene  må  kun  rumme 
bogstaver  (store  som  små),  tal 
samt  punktum  og  mellem¬ 
rum. 

Både  kodning  og  dekodning 
tager  lidt  tid,  men  program¬ 
met  er  så  kompakt  opbygget, 
at  det  ikke  er  overvældende. 
F.eks.  vil  det  for  en  streng  på 
30  karakterer  tage  ca.  2  sek. 

I  en  database  bør  man  ikke 
anvende  programmet  på  de 
oplysninger,  man  typisk  vil 
søge,  under  (f.eks.  journal¬ 
numre,  personnummer,  nav¬ 
ne  ell.  lign.). 

Disse  oplysninger  bør  man 
bevare  i  ukodede  strenge. 

I  mange  programmer  vil  dis¬ 
se  ting  ikke  have  så  stor  be¬ 
tydning  sammenlignet  med 
den  kapacitetsforøgelse  man 
vil  få  til  rådighed. 

1  øvrigt  kan  oplyses,  at  for 
begge  subrutiner  gælder,  at 
de  ændrer  et  x  til  y.  Det  y,  der 
kommer  ud  af  første  rutine,  er 
således  kodet,  mens  det  y, 
som  kommer  ud  af  2.  rutine, 
er  dekodet  igen. 

Strenge  af  enhver  længde 
kan  behandles,  programmet 
skulle  være  helt  problemløst 
(og  i  100%  BASIC).  Det  kan 
derfor  uden  større  problemer 
indlægges  i  eksisterende  pro¬ 
grammer.  □ 

Michael  Giaversen 
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Multiaction 


torsvare  dig  mod  de  fjendtli¬ 
ge  rumskibe. 

Rumskibene  flyver  i  forskelli¬ 
ge  højder,  og  pointfordelin- 
gen  er  også  sat  derefter.  Det 
drejer  sig  med  andre  ord  om 
at  nedskyde  rumskibene  i 
den  største  højde,  det  er  mu¬ 
ligt. 

Din  kanon  affyres  ved  at  an¬ 
vende  et  joystick  eller  trykke 
på  U-tasten.D 


1  REM  C . E . CHRISTENSEN 
3  PRINT  RT  10.9;  •— BBffiB 


13331- 

5 


PRINT  RT  12.,  7;  “i 
PRINT  RT  21,0;  ", 


S 

IF  INKEY 

$  =  '*"  THEN  GOTO  ' 

7 

PR  INT 

RT 

10/9, “ 

.;  RT 

12..  7.; 

(  l 

8 

FOR  R 

=  14- 

TO  25 

9 

PRINT 

RT 

19^R-1.;“ 

lø 

PRINT 

RT 

£0  jR-£;  " 

11 

SC  =ø 

17 

PRINT 

RT 

19/fi; 

18 

PRINT 

RT 

2ø..  R-l;  ' 

19 

NEXT  i 

R 

20 

R  =0 

21 

PRINT 

RT 

19/0; "SKUD  =  ” 

-”S 

a.  c. 

H  =  INT 

i  RND  »løjt  +4- 

25 

PRINT 

RT 

17/0; "SCORE  = 

26 

PRUSE 

2ø 

4-0 

G=£ 

50 

PRINT 

RT 

H..G.;  "Jk“ 

60 

PRUSE 

3 

70 

PRINT 

RT 

H..  G;  “  “ 

75 

IF  INKEY $="U“  THEN  GOTO 

30 

G=G  +  1 

QØ 

IF  G  = 

30  THEN  GOTO  22 

100 

GOTO 

50 

500 

R=R  +  1 

502 

FOR  K 

=  lø 

TQ  15 

504- 

SOUND 

K  ,  ' 

50 

305 

NEXT 

K 

510 

B  =  13 

316 

PRINT 

RT 

H..  G-l.;“  “ 

517 

PRINT 

RT 

H„G;  "k" 

520 

PRINT 

RT 

B..  26; 

522 

PRUSE 

1 

525 

PRINT 

RT 

B..  26;  "  " 

54-5 

PRUSE 

3 

;  R 

sc 


Claus  Evers  Christensen 

550  B=B-1 
3bø  C  =G  +■ 1 

580  IF  B<1  THEN  LET  B  =  1 
531  PRINT  RT  H..2S;  “ 

536  IF  G >29  THEN  GOTO  21 
587  IF  PEEK  B=PEEK  H  RND  PEEK  G 
=PEEK  £6  THEN  GOTO  1000 
590  IF  R  <  20  THEN  GOTO  516 
600  GOTO  114-0 


1000 

PRINT 

RT 

H-1..G-1; 

“  *#* 

1010 

1020 

PRUSE 

PRINT 

5 

RT 

H-2/G-2; 

* 

***" 

"***** 

1030 

104-0 

PRUSE 

PRINT 

5 

RT 

H  —2 ..  G  —  £.; 

***** 

**±** 

***** 

***** 

•  • 

1050 

1060 

PRUSE 

PRINT 

5 

RT 

H - 1  /  G-l; 

*** 

*  * 
*** 

lø7ø 

1030 

10QØ 

1100 

1110 

1120 

1122 

1125 

1130 

114-0 

1150 

1160 

117ø 

1300 

1310 


FRST 

FOR  X  =20  TO  4-0 
SOUND  X..  100 
NEXT  X 
SLOU 

LET  SC  =SC.  +20  -H 
PRINT  RT  17.,  ø; 
PRINT  RT  19..  0; 

IF  R  < £0  THE N  GOTO 
PRINT  RT  11.10. 
PRUSE  25ø 
CL  3 

GOTO  1 


“SCORE 

SKUD 


SRUE  "SKYD  FUENDEJ3" 
RUN 


SOFT  Special  43 


House  Defender 


Når  du  har  startet  program¬ 
met,  der  passer  til  en  VIC-20, 
kommer  en  lille  UFO  flyvende 
hen  over  skærmen.  Du  skal 


skyde  den  ned,  inden  den 
når  frem  til  din  egen  kanon 
eller  tør  den  tår  skudt  dit  hus 
helt  i  grus. 


Etter  10  nedskydninger  har 
du  vundet  spillet.  SHIFT  tunge¬ 
rer  som  »skyd». 

Jesper  Udby 


0  PR I NT "IT  = F0RT-38400T038400+506 : POKET >  ø : NEXT : AW=INT(RND( 1 >#6  >+5 

1  P0KE36879.« PEEK<36879>AND247 

2  PRINT"*" W;WQ 

10  PR  I  NT  "  Mrørøttrø" 

12  PRINT"  *****»«»**»**" 

14  PRINT"  *****  **»  «  $  %  »  &*" 

15  PPTKJT"  vz'JWP&m  tfumzix&sufrsMtK \ » 

16  PRINT"  Æ  M  M  #  i  1  i  il  Bm" 

is  print"  mmmm  mmmmm" 


20  PRINT"  *4  8  %  8  88888«" 

22  print"  mmmm  i 

24  PRINT"  «M  8  *  ItHl  II  8  8  *w" 
26  PRINT"  VttStaffiåtiKi  I  I  I raBtfT'T’Tir""" 

28  PRINT"  «ft  8  M  81-  HØ  g  8  88  8«" 


30  PRINT"  Mrøggffirøl  I 
32  PRINT"  8  8  8  »HH«  «  8  %  W 

36  I FPEEK <  653  >  * 1 AND3“øTHENG03UB 1 øøø 

37  I FS*  1 THENGQSUB 1 002 

38  GQSUB30000 

4ø  I FSS=øTHENGOSUB 1 ø 1 ø : 33= 1 : G0T036 
4 1  I FS*øTHENF0RXX= 1 T06  =  G0SUB20000 : NEXT 
44  POKEL, 32 :  L-L+l  ■’  IFL=LLTHENSS=0  •  G0T048 
46  POKEL; 61 : IFL=BTTHENBS*1 : G0SUB33000 
48  I FBS" 1 THENG0SUB3000 
50  G0T036 

999  G0T036 

1000  S=1  =  P0KE8020, 160  :  X-8020 :  G0SIJB32000 :  RETURN 

1002  F0RQ=1T02 

1003  POKEX,  32  :  X»X-22  •'  IFX<7680THENX*8020  :  3=0  :  RETURN 

løø4  I FPEEK  <  X  >  *6 1 THENG0SUB60 1 0  =  GOSUB 1 0000 : G0SUB2000 • RETURN 
1006  POKEX, 46 :  NEXT  /. 

1008  RETURN  H  W/ 

lølø  LX«RND<1>#6 

1012  l=768ø+LX#22+44 : LL=L+22 
1014  LJÉ»RND<1  >#200+100 

1016  LX"RND<  1  >#15 :  BT“L+L/S~1 

1017  I FWQXRW® I NT ( WQ/flW > flNDWQOØTHENBT =7883 : L*7873  =  LL*7891 : flW“HW-INT <RND< 1 >#2> 

1018  POKEL,  160 :  RETURN  ■ 

2000  W*W+1 = PRINT"«" W;WQ:SS»ø:S*ø:B3*0: IFW«1øTHENPRINT"DU  VANDT" : GQTQ2006  W  mm 

2001  POKEX- 1 ,  32 : POKEX, 32 : P0KEX+1 ,  32 : POKEL,  32 : POKEBT , 32  I  \g\ 

2002  POKEX- 1,32-'  POKEX  ,  32 :  P0KEX+ 1 , 32 :  POKEL ,  32 :  POKEBT  ,  32  I  ^ 

2004  RETURN  I 

2006  I FWGD20THENPR I NT " MEN  DINE  HUSE  ER  UBRU-GELIGE"  ■  » 

2008  END 

3øøø  POKEBT , 32 : BT =BT +23  '•  I FPEEK<8T > 032ANDPEEK < BT > O46THENG0SUB6000  Sm====m^Sm 
3001  I FXW= 1 THENGOSUB 1  øøøø :  G0SUB4000 :  XW*ø :  RETURN  (^wwvwTr 

3øø2  IFBT>8185THENBS-0:  RETURN  ///gPPFgFEEpE 

3004  POKEBT  ,  35 :  RETURN 

4øøø  WQ®WQ+1 :  BS=0 :  POKEBT , 32 :  PRINT"H"W j  WQ :  IFWQ»30THENEND 

4øø2  RETURN  ; 

6øøø  IFPEEK(BT>  =  lø20RPEEK<BT>  =  lø4THENXW=l :  POKEBT ,  86 :  RETURN 
6øø2  I  FPEEK  C  BT  >  =35THENRETURN 

6øø4  GOSUBlØøøø • P0KE36879, PEEK< 36879 >0R8 : GQSUBløøøø : P0KE36879 , PEEK < 36879 > AND247 
6006  GQSUB4000 : PR I NT "DU  HAR  TABT. " = PRINT"DIN  KANON  ER  ØDELAGT!!" 

6009  END 

6ø  1 0  POKEX- 1 ..  1 6ø  :  POKEX ,  1 60  =  P0KEX+ 1 , 1 60  :  I  FBS=  1 THENPOKEBT ,  87 

6012  RETURN 

10000  REM  EXPLOSIQN 

10003  P0KE36877, 130 

1 0006  F0RLQ= 1 5T00STEP- . 8 • P0KE36878 , LQ : F0RMQ= 1 TO 1 50  =  NEXTMQ , LQ 
1 0009  P0KE368 77 , 0 : P0KE36878 , ø = RETURN 
2øøøø  G0T021000 
21000  RETURN 

3øøøø  XW=XW+1 : IFXW/3=INT<XW/3>THENP0KE36876,20ø:P0KE36878, 1 5 : FORT V= 1 TOS : NEXT : POK 

E36876,0 

31000  RETURN 

32000  P0KE36376, 190 :  POKELS,  15  =  FORET®  1T010  :  NEXT  :  P0KE36876,  0 :  RETURN 
33000  P0KE36876, 220 ■' P0KE3687S, 15  =  FORET*  1  TO  15  =  NEXT : P0KE36876,  ø  =  RETURN 


tom*/ 


vie 

20 
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Programmet  er  selvforklarende 
Kurt  Friis  Hansen 


100  REM  TEST  GYLDIG  DATO  -  linje  120-160  kan  benyttes  til  test  af  indtastning 

110  REM 

120  GOSUB  400 

130  INPUT  "INDTAST  DATO  ,  MANED  ,  AR  ”  ;  DDX  ,  MM/C ,  YYX 

140  PRINT  DDX 

150  GOSUB  490 

160  PRINT  DD% :G0T0  130 

170  1 

180  ’  Check  af  korrekt  antal  dage  i  måneden 
190  ’ 

200  ’  Programmet  tager  højde  for  skudår,  også  at  der  kun  er  skudår  ved 
210  ’  århundredskift,  når  årstallet  er  deleligt  med  fire  hundrede. 

230  ’  Rutinen  kræver  at: 

240  ’  YYX  indeholder  årstal  -  f.eks.  1984 

250  ’  MMX  indeholder  måned  -  f.eks.  12 

260  ’  DDX  indeholder  dato  -  f.eks.  31 

270  ’ 

280  ’  Rutinen  kaldes  som  subroutine,  og  returnerer  værdien  -1,  hvis  datoen 
290  ’  i  den  specificerede  måned  er  ulovlig  (evt.  kun  det  pågældende  år). 

300  ’ 

310  ’  Routinen  kender  kun  den  Gregor ianske  kalender,  der  er  gyldig  fra 
320  ’  15.  oktober  1582.  Datoen  -  variablen  DDX  -  returneres  som  -1,  hvis  en 
330  ’  tidligere  dato  specificeres. 

340  ’ 

350  ’  Øvrige  anvendte  variabelnavne:  INGEN 
360  ’  Anvendte  funktionsnavne  :  GYLDIG 

370  ’ 

380  ’  Placeres  tidligt  i  programmet: 

390  ’ 

400  DEF  FN  GYLDIG=31+< <MMX=4)ORCMMX=6)OR(MMX=9)OR(MMX=1 1 ) )-<MMX=2)*< (0=<YYX  MOD 
100) )-(0=(YYX  MOD  4) )-(0=( YYX  MOD  400))-3) 

410  1 

420  ’  Bemærk  anvendelsen  af  sammenligninger  og  relationer!  Er  en  betingelse 
430  ’  opfyldt  returneres  værdien  ’  —  1 ’  ellers  værdien  ’ 0 ’  Cnul)! 

440  ’ 

450  ’  Det  følgende  er  den  egentlige  subroutine,  som  kan  placeres  frit  i  et 
460  ’  program.  Placeres  subrutiner  og  funktioner  tidligt  i  programmet,  sikres 
470  ’  maksimal  arbejdshastighed! 

480  ' 

490  IF  YYXC1583  THEN  GOSUB  530 

500  IF  DDXCl  OR  (DDX>FN  GYLDIG)  THEN  DDX=-1 

510  IF  MMXC1  OR  MMX>12  THEN  DDX=-1 

520  RETURN 

530  IF  YYXC1582  OR  MMX<10  THEN  560 

540  IF  MMX> 10  THEN  RETURN 

550  IF  DDX>14  THEN  RETURN 

560  DDX=-1 

570  RETURN  520 

580  ’ 

590  1  Bemærk  brugen  af  den  specielle  RETURN  520  kommando,  som 
600  '  i  realiteten  svarer  til  en  GOTO  520,  blot  med  den  forskel, 

610  '  at  RETUR-adressen  fjernes  fra  computerens  STACK.  ro 
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Kanal  Plus  2 
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Det  vrimler  nu  med  lokale  tv- 
stationer  og  mange  sparer 
penge  ved  at  lave  deres  an¬ 
tenner  selv. 

Med  dette  Spedrum-program 
kan  du  nu  selv  beregne  din 


antenne 


Jan  H.  Rasmussen 


*  //  T 


//?/ 


5  CLS  ^ 

10  reh  - 

15  REfl  ANTENNE  BEREGNINGS  PROG 
20  REH 

25  REH  JAN  H. RASMUSSEN, AABTHOJ 

30  REM  - 

40  DIN  d ( 10) 

45  Din.  & (  1 0 ) 

50  PRINT  "UALG  AF  ANTAL  ANTENNE  ELENEN 
TER":  PLOT  0,164:  DRAU  255,0 
55  PRINT 

60  PRINT  "Du  kan  vae  Ige  et  antal  mel  le 
m","4  09  10" 

80  INPUT  "Antal  elementer  "  ;e  l 
85  IF  el <4  OR  el>lø  THEN  GO  TO  80 
90  PRINT  j>"Je9  vael9er  FLASH  1 Je l ; 
FLASH  ØJ"  elementer" 

95  PRINT  i »"Skal  det  waere  en  UHF  el  le 
r  en  UHF  antenne" 

100  PRINT  , , "UHF  tast  1",,"UHF  tast  2" 
110  INPUT  I 

120  IF  f<l  OR  l >2  THEN  GO  TO  110 
130  GO  SUB  1*1000 

150  REN  - 

151  REn  REFLEKTOR  UDREGNING 

152  REn  - 

155  LET  re l=(150/frq)*1000 

160  REn  - 

161  REn  DIPOL  UDREGNING 

162  REn  - 

165  LET  d ip=C72.5/frq)*1000 

170  REn  - 

171  REn  DIREKTOR  UDREGNING 

172  REn - . 

175  LET  d(l)*(145/frq*1000)-(7250/|rq) 

180  FOR  n=2  TO  el-2 

185  LET  d(n)=*dCn-l)-(d(n-l  3/100*5) 

190  NEXT  n 

200  REn  - 

201  REn  ELEnENT  AFSTAND 

202  REn  - 

205  LET  agr=300/frq*250 

210  FOR  n=l  TO  3:  LET  a(n)=a9*:  NEXT  n 


SPEC¬ 

TRUM 


220  FOR  n=4  TO  e l-l 

230  LET  a(n)=a(n-l)  +  (a(n'-l)/100*4) 

235  NEXT  n 

250  REn  - 

251  REn  LAENGDE  AF  HOUED  BOn 

252  REn  - 

255  LET  t=0 

260  FOR  n=l  TO  e l-l 
265  LET  t-ti-a(n) 

270  NEXT  n 

275  LET  lsum=INT  Ct+40) 

300  REN  - 

301  REN  UDSKRIFT  PAA  SKAERHEN 

302  REn  - 

305  CLS 

310  PRINT  AT  0, 3 j "UHF-UHF  ANTENNE  BEREG 
NING" 

355  PLOT  9,128:  DRAU  143,0 
360  PLOT  9,127:  ORAU  143,0 
365  PLOT  11,114:  DRAU1  0,28:  PLOT  12,114 
:  DRAU  0,28 

370  PLOT  25,115:  DRAU  0,10:  PLOT  25,131 
:  DRAU  0,10:  PLOT  26,115:  DRAU  0,10:  PLO 
T  26, 131 :  DRAU  0, 10 

375  PLOT  39,116:  DRAU  0,24:  PLOT  40,116 
:  DRAU  0,24 

380  PLOT  53,116:  DRAU  0,24:  PLOT  54,116 
:  DRAU  0,24 

385  PLOT  68,117:  DRAU  0,22:  PLOT  69,117 
:  DRAU  0,22 

390  PLOT  83,117:  DRAU  0,22:  PLOT  84,117 
:  DRAU  0,22 

395  PLOT  99,118:  DRAU  0,20:  PLOT  100,11 
8:  DRAU  0,20 

400  PLOT  115,118:  DRAU  0,20:  PLOT  116,1 
18:  DRAU  0,20 

405  PLOT  132,119:  DRAU  0,18:  PLOT  133,1 
19:  DRAU  0,18 

410  PLOT  149,120:  DRAU  0,16:  PLOT  150,1 
20  :  DRAU  0, 16 

420  PRINT  AT  2,  3  J  "Re  Mek  t  or  " 

425  PLOT  23,152:  DRAU  -11,-8 
430  PRINT  AT  3, 10 J "D i rektore" 

440  PRINT  AT  8,5j"Dipol  (isoleret  Ira  a 
nt.  )" 

445  PLOT  39,108:  DRAU  -13,5 
450  PRINT  AT  5,21  mod  sender" 

455  PLOT  168,124:  DRAU  80,0 

458  PLOT  246,126:  DRAU  2,-2:  DRAU  -2,-2 

460  PRINT  AT  2, 22  ;  "Hovedbom" 

470  PLOT  175,152:  DRAU  -21,-24 
500  PRINT  INUERSE  1 ;AT  9, 0 J "Antennen  s 
k*a  l  have  II9.  Iaen9der" 


520  PRINT  AT  1 1 , 0 J "Hovedb om  "JlsumjAT 
12,0; "Re I  lektor  " JINT  ref 
530  PRINT  AT  13,ØJ"Hver  dipol  "JINT  dip 
;AT  14, 0;"1. direktor  "JINT  d(l) 

540  PRINT  AT  15, 0 J "2. d i  rektor  "JINT  d(2 

) 

550  FOR  n=3  TO  el-2 

560  PRINT  AT  8+n , 17 Jn J " . d i rekt or  "JlNT 
dCn) 

570  NEXT  n 

580  PRINT  FLASH  1  JAT  16, ØJ"  Alle  maa l 
I  mm  " 

600  PRINT  INUERSE  1  JAT  17, ØJ"  Alstand 
e  mellem  elementerne  " 

620  FOR  n=l  TO  3 

625  PRINT  AT  17+n  ,  0  J  "N l  "  Jn  J "8."  Jn  + 1  J "  "J 
INT  aCn ) 

630  NEXT  n 

650  FOR  n=4  TO  6 

655  PRINT  AT  14+n ,  11  J 'Til " Jn  J "i" Jn  + 1 J "  " 
JINT  aCn) 

660  NEXT  n 
670  FOR  n=7  TO  9 

675  PRINT  AT  1 1  *n ,  22  J"n l  "  Jn  J  "8."  Jn  +  l  S "  " 
JINT  aCn ) 

680  NEXT  n 

700  PRINT  INUERSE  1  JAT  21,ØJ"TAST  FOR 
C0PT=1  NY  ANT. =2  SAUE=3" 

710  INPUT  s 

720  IF  s=l  THEN  COPY 

730  ‘IF  s  =2  THEN  RUN 

740  IF  s =3  THEN  GO  TO  3000 

750  GO  TO  710 

1000  PRINT  , , "Du  har  val9t  en  UHF  antenn 
e" 

1010  PRINT  , , "Hvad  lor  en  TU  kanal  skal 
den  bruges  til  (21-69)" 

1020  INPUT  "Kanal  "Juk 

1030  IF  uk  <21  OR  uk >69  THEN  GO  TO  1020 
1040  LET  lrq»((uk-21)*8)*472 
1050  RETURN 

2000  PRINT  , , "Du  har  valgt  en  UHF  antenn 
e  " 

2010  PRINT  , , "Hvad  lor  en  TU  kanal  skal 
den  bTuges  til  (2-12)" 

2020  INPUT  "Kanal  " Jvk 

2030  IF  vk  =2  OR  vk=3  OR  vk=4  THEN  LET  I 

rq=((vk-2)*7)+49:  RETURN 

2040  IF  vk  <5  OR  vk>12  THEN  GO  TO  2020 

2045  LET  »rq=((vk-5)*?)+176 

2050  RETURN 

3000  SAUE  "ANTENNE"  LINE  1 
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Happy  Days 


Hvor  mange  dage  har  du  le¬ 
vet,  og  hvilken  dag  blev  du 
egentlig  tødt?  Alt  dette  og  ik¬ 
ke  mere,  ertarer  du  ved 
hjælp  at  dette  lille  Vic-20 
program. 

Niels-Jøigen  Bertelsen 


30  PRINT " ry  ROGRAMMET  BEREGNER  HVOR  MANGE  BAG 
35  PR I NT "BU  ER  FøBT  PAA.  “ 

4ø  PRINT 

45  INPUT"BATOCNU>  :";A 

5ø  I FA< I THENPR I NT " llllllllllll  : G0T045 

55  INPUT"MAANEBCNU> : ";B 

6ø  I  FB<  1  THENPR  I  NT "  Tllllllllllll  G0T055 

65  INPUT"AAR<NU>  “iC 

7ø  IFC<lTHENPRINT"rnilllllHIII"  G0T065 

75  PRINT:  I  NPUT  "UGEBAG  (NU  > :  " ;  IJ$ 

8ø  I  FU$= " " THENPR I NT " ! llllllllllll  G0T075 

85  PRINT: INPUT"F. BATO  :“;D 

90  IFB<lTHENPRINT"-TMl«MMlHr  G0T085 

35  INF'UT"F.  MAANEB  ",E 

løø  I  FE<1  THENPR  I  NT  “Tllllllllllll"  G0T095 

105  INPUT"F. AAR  :";F 

llø  I  FF<  1  THENPR  I  NT  "  TIHNIIHHI  :  GOTO  1 05 

115  I FU$= " MANBAG " THENU= 1 

12ø  IFU*=" TIRSBAG" THENU=2  S 

125  I FU* = "  ONSBAG  "  THENU=^.  1 

130  I FU*=" TORSBAG "THENU=4  E 

135  I FU* = " FREBAG " THENU=5  ^ 

14ø  I FU* = " LøRBAG " THENU=6 

145  I FU*=" SØNBAG "THENU=7 

146  IFC<F  OR  (C=F  ANB  B<=E  ANB  R<=B ) THENPR I NT " 

147  G=E  . 

150  IFC=FTHEN4ø5 
155  G0SUB375 
16ø  VB=I-B 
165  IFE=12THEN190 
17ø  F0RG=E+1T012 
175  G0SUB375 
180  VB=VB+ I 
185  NEXT 

190  YB=VB+< (C-F-l )*365>+INT< <C-F>/4) 

195  IFB=lTHEN22ø 
200  F0RG=1T0B-1 
205  G0SUB375 
210  VB=VB+I 
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HVOR  MANGE  BAGE  BU  HRRLEVET,  OG  HVILKEN  BAG" 

215  NEXTG 
220  VB=VB+A 

225  IFF/40 1  NT  ( F/4 )  ANBE<3THENYB=VB- 1 
G0T045  230  IFF/4=INT <F/4) ANBE/2THEN  VB=VB-1 

235  PRINT 

: G0T055  240  I FVB= 1 THENPR I NT " LEVET  I  “VB"  BAG. " : G0T0260 

245  PR I NT "LEVET  I  "VB"  BAGE." 

;  G0T065  260  I F VB/7= I NT ( VB/7>  THEN290 

265  VB=VB-(INT(YB/7)*7>  " 

II"  G0T075  270  F0RJ=VBT01STEP-1  \/IO 

275  U-U-l 

:  G0T085  280  IFU<1THENU=7 

285  NEXTJ  fcW  __ 

I" :  GOT 095  S-  -Æ  250  IFU=1  THENQ*="MANBAU"  ™ 

/jmi  295  IFU=2THENG1="-IIRSBHG"  ■ - ■ - 

I"  GOTO  105  ^  |F^=3TIÆNQ*="toIsdÅg 

.•$//  320  I FU=7ThInQ*  = " SøNB AG " 

330  PRINT.,FØDT  EN  "Q$". 

335  PRINT 

l<=B)  THENPR  I  NT  "TTTTTJIIIIIIIIIII"  ;  G0T085  34ø  PRINT"RUN/STOP  <R/S>" 

345  GETR*: IFR$=" "THEN345 

346  IFR*OmR"THENPRINT".T'  ENB 

350  B— ø : E— 0 ; F=ø ; VB=0 : PRINT "0" : G0T085 

375  I FG= 1 0RG=3GRG=50RG=70RG=80RG= 1 00RG= 1 2THEN 1-31 

38ø  I FG=40RG=60RG=90RG= 1 1  THEN I =30 

385  IFG=2THENI=28 

390  IFF/4= I NT  <  F/4) ANBG=2THEN 1 =29 

395  I FC/4= I NT ( C/4  > ANBG=2THEN I =29 

4øø  RETURN 

>/4)  405  G=EG0SUB375 

410  I FB=ETHENVB=A-B 
415  IFB=E+1THENVB=(I-B)+A 

42ø  IFB>E+1THENVB=I-BF0RG=E+1T0B-1  GuSUB375VB=VB+I  NEXT: VB=VB+A 
425  GOT 0240 


Electric 

Marathon 


EL- 

BEREGNINGER 

TIL 

LAMSDA  SOøø 

OG 

MARATHON  32K 

AF 

IB  SECHER 

1903 

2  REH 

3  REM 
S  CL5 

13  PRINT  RT  3,6;  '•**6 
16  PRINT  "  - 


- 28  PRINT  nr  2,  S.:  “TAST  ©  FOR  DE  g{ 

UBEKENDTE ,  " 

o i  PRINT 

22  PRINT  RT  4-, 2)  "DER  SKAL  URER 
E  2 

2S  PRINT  RT  6,0;  "  INDTAST  URTT" 

30  INPUT  P  „  „ 

II  ISffS  £  NDTigrUOLT" 

I!  PRIN?  RT  S  .  17;  u;  UOLT- 

kø  PRINT  RT  IB, ø;  " INDTRST  RMPE 

100  PRINT  RT  10. 17: I."  BMP” 
llø  PRINT  RT  12. ø;  "IFIDTfiST  OHM" 

!??  INPUT  R _ „HM.. 

lo««  rnim  r»  *  12. 2.  s  ..Ft. 


IF  R=0  HND  P  =  0  THEN  GOTO 
IF  U=0  RND  1=0  THEN  GOTO 
IF  U =0  RND  R=0  THEN  GOTO 
IF  1=0  RND  P=0  THEN  GOTO 
IF  1=0  RND  R=0  THEN  GOTO 
IF  U=0  RND  P=0  THEN  GOTO 
P=U*I 

PRINT  RT  6 ..  17;  P;  **  UflTT" 
R=U,-I 

PRINT  RT  12,1?;R,  ’*  OHM’* 
GOTO  4-9© 

I=U.'R 

PRINT  RT  10,17;  i;  **  RMP" 
P= (U*U) /R 

PRINT  RT  6.17;  P.i  **  UfiTT” 
GOTO  490 
U  =P  / 1 

PRINT  RT  8,17;  U;  M  UOL.T'* 
RsP/ 11*1) 

PRINT  RT  12 , 17;  R;  ”  OHH” 
GOTO  490 
I =SOR  (P/R) 

PRINT  RT  10 . 17;  I;  “  RMP** 

U  =50R  (R*P) 

PRINT  RT  8, 17; U; “  UOLT" 

GOTO  490 

I=P/U 

PRINT  RT  10,17; i;"  RMP" 
R=  (U*U)  SF> 

PRINT  RT  12,17;Rj "  OHM" 
GOTO  490 


Har  du  en  Marathon,  Power 
eller  Lambda  kan  dette  pro¬ 
gram  lave  en  række  elektro¬ 
niske  beregninger.  Blandt  an¬ 
det  kan  du  indtaste  bare  to  al 
lølgende  oplysninger:  Spæn¬ 
ding,  strøm,  modstand  og  ef¬ 
fekt,  hvorefter  programmet 
foretager  udregningen  af  de 
to  manglende. 

Hvis  linierne  fra  10  til  23,  fra 
490  til  760,  og  linie  135  ude¬ 
lades,  kan  programmet  nøjes 
med  bare  2  K  RAM.D 

Ib  Secher 


450  U=R*I 

25  460  PRINT  RT  3.17;U;~  UOLT" 

470  P=R*(I*I) 

40  430  PRINT  RT  6.17  ;P;”  URTT** 

490  PRINT  RT  16.2; "ØNSKES  FLERE 
45  BEREGNINGER**;  RT  18.9;  "TfiST  R** 

495  PRINT  RT  20.2; -FOR  PRISUDRE 
GNING  TRST  P” 

520  IF  INKEY$="fi"  THEN  GOTO  S 

530  IF  INKEY$=”P-  THEN  GOTO  535 

531  IF  INKEY$  <  >  "R"  RND  INKETSO 
**P-  THEN  GOTO  490 

535  CES 

536  PRINT  -EFFEKTFORBRUGET  =  **; 
p; -  URTT- 

54e  PRINT  -INDTRST  TIDEN -I  MINU 
TTER" 

550  INPUT  T 
560  Z=T*60 

570  PRINT  -INDTRST  PRIS/KUH" 

530  INPUT  PRIS 

700  G=INT  ( ( C (P/1800) * (Z/3600) 1 
*PRIS) *100) /10B 

701  PRINT 

702  PRINT 

710  PRIMT  T;  **  MINUTTERS  DRIFT" 
72©  PRINT  -MED  EN  KUH-PRI5  PRR 

";pris;  "  KR** 

730  PRINT  "KOSTER  “;G;"  KRONER* 
740  GOTO  490 
750  S  ROE  EP' 

760  RUN 
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10  •  (HH)  <0  1984  D  i  ««*s»nbl»r  for  AMSTRAD  *4  J«n*  l>  P«t«r  Och»lm*nn  (HH) 

20  *  ***  INDSAET  EVT.  KONTROLKARAKTERER  TIL  PR XNTER- INI T I AL  1 SER IN6  *»#  S 

100  '  •««  INITIALISERING  (HH)  |W 

110  MODE  I : BORDER  13: INK  0, 13: INK  1,0:INK  3,3!PEN  1  IS 

120  DIM  a«il6,7):F0R  n-0  TO  16!F0R  »-0  TO  7: READ  a«(n,m> ! NEXT! NEXT  || 

130  DATA  B,C,D,E,H,L,  QB ,  A  I,; 

140  DATA  BC,DE,QA,SP,?,?,?,7  f/ 

130  DATA  BC, DE, OA, AF,’,?, 9,?  M 

160  DATA  0, 1,2, 3, 4, 3, 6, 7  j> 

170  DATA  NZ ,  2 ,  NC , C , PO , PE , P , M 

180  DATA  * ADD  A, * , * ADC  A,*,*SUB  • , "SBC  A,*,*AND  *,*XOR  *,*0R  ",*CP  “  l_? 

190  DATA  N0P,*EX  AF , AF ’ " , D JNZ  QE,JR  QE, ?,?,?,? 

200  DATA  *  <BC>  ,A", ’A,  (BC) " , *  (DE) ,A*, *A,  < DE ) ", *  <QD) ,QA* , *QA,  <QD) ■ , ■ (OD)  ,A*, *A,  (OD 
1  * 

210  DATA  RLCA, RRCA, RL A , RRA, DAA, CPL , SCF , CCF 
220  DATA  RET ,EXX, JP  <QA),*LD  SP , QA* , 9, 9, 9, 9 

230  DATA  JP  OD , *OUT  (QC),A*,*IN  A,(QC)*,*EX  <SP),OA*,*EX  DE, HL*, DI, El 

240  DATA  00,08,10,18,20,28,30,38 

230  DATA  RLC , RRC , RL , RR , SLA , SRA, 9, * 8RL  * 

260  DATA  IH  0,9, IN  1 ,  IH  2,9, 9, 9, 9 

270  DATA  *LD  I,A*,*LD  R,A*,*LD  A,I*,*LD  A, R* , RRD, RLD, 9, 9 
280  DATA  LD,CP, IN,0T,?,?,?,7 
290  DATA  9, 9, 9, 9, i, D,  IR, DR 
300  GOTO  1300 

310  ’  ***  DISASSENBLING  AF  KODEN  I  *byt«*  (HH) 

320  4 ■ (byt*  AND  192) /64:g-(byt*  AND  36)/8!h-byt«  AND  7:j-(g  AND  6)/2:k-g  AND  1 
330  IF  byt** 1 18  THEN  4*- *HALT *: RETURN 
340  ON  cla»Ml  GOTO  330,380,390 
330  ON  4*1  GOTO  360,320,330,370 

360  ON  h«!  GOTO  410,430,430,460,480,490,300,310 
370  ON  h* 1  GOTO  340,330,370,380,390,600,620,630 
380  ON  4 ♦ 1  GOTO  640,630,660,670 
390  IF  401  THEN  790 

400  ON  h4|  GOTO  680,690,700,720,740,730,770,780 
410  IF  g>3  THEN  d«-*JR  * **ø I  4 , g-4> ♦ * , QE * : RETURN 
420  dø-aø(6, g) (RETURN 

430  IF  1**0  THEN  d*-*LD  *♦»* U  ,  J  )♦*,  QD*  *.  RETURN 

440  dø-*ADD  OA, *♦«*< 1 , J ) :RETURN 

430  dø**LD  *♦••<7,  g)  ‘.RETURN 

460  IF  k-0  THEN  dØ-“INC  *♦••< 1 , J ): RETURN 

470  d«-*DEC  *4*0(1,  J ) IRETURN 

480  d** *  INC  *4*0(0, g) :RETURN 

490  dø*  *  DEC  ***«(0,g) IRETURN 

300  d***LD  * ♦ aø < 0 , g ) 4  * , QC * : RE T URN 

310  d«-a«(8,g> !RETURN 

320  dd-*LD  " **ø ( 0, g) 4*, " +*• <  0 , h ) : RETURN 

330  d«-a«  <5, g ) <0, h  > : RETURN 

340  dØ-*RET  • **ø(4, g) : RETURN 

330  IF  k-0  THEN  dØ-"POP  *♦••< 2 , J ): RETURN 

360  d«-*ø(9,j ) : RETURN 

370  dø*  *  JP  * ♦ aø <4 , g) 4 • , QD* : RETURN 

380  d«-*ø< 10, g) : RETURN 

390  dØ-‘CALL  * *»9(4, g) 4* , QD* : RETURN 

600  IF  k*0  THEN  dø- “ PUSH  ** aø < 2, j >! RETURN 

610  dø-*CALL  OD* : RETURN 

620  d«-*ø  <5, g) ♦ *QC  * : RETURN 

630  dø-*RST  *  4*ø( 1 1 , g) : RETURN 

640  dø*aø  < 1 2, g) • *  *««9<0, h) : RETURN 

630  dø* "BIT  *4«ø(3, g)4-,-»aøtØ,h):RETURN 

660  dø-* RES  *4«ø(3, g) 4- , *4*9(0, h) : RETURN 

670  dø- *  SET  *4*0(3, g) ♦* , * **9(0, h> IRETURN 

680  dø** IN  *  4*0(0, g) 4  *  t (C  I  * : RETURN 

690  dø*  *  OUT  (C), ”4*9(0, g): RETURN 

Tøø  IF  k-0  THEN  dø*  *  SBC  HL  ,*♦  *9<  1 ,  J  )*.  RETURN 

710  dø- * ADC  HL , *  *»9  (  1  ,  j  )  ! RETURN 

720  IF  k-0  THEN  d9-*LD  (OD) ,* 4*9 ( 1 , J >: RETURN 

730  dø* *LD  * »*ø( 1 , J ) 4- ,  (OD) * JRETURN 

740  dø- "NEG* : RETURN 

730  IF  k-0  THEN  dø- *RETN* : RETURN 

760  dø* "RET I  * : RETURN 

770  dø-*9< 13, g) IRETURN 

780  dø-*9( 14, g) IRETURN 

790  dØ-*9(13,h)4*ø(l6, g) IRETURN 

900  STOP 

810  ’  (HH)  INDSAET  HL, IX, IY, (HL) , < IX4d) , (IY4d) ,N,NN  HVIS  PAAKRAEVET  *** 

820  i- INSTR  (dø,  *QA* )  I  IF  lOØ  THEN  ON  lnd«x4l  GOSUB  930,960,970 

830  i - INSTR (dø, *  QA* ) : IF  1<>0  THEN  ON  Ind*x4l  GOSUB  930,960,970 

840  1* INSTR (dø, *QB* ) I IF  1 < >0  THEN  ON  Ind*x4l  GOSUB  980,990,1010 

830  1 ■ INSTR ( dø, *QC  * ) I IF  i < >0  THEN  GOSUB  890! dø-LEFTø ( dø, 1 - 1 ) 4 qeø4HI Dø < dø, 1 42) 5 6- 

*♦1 

860  I -INSTR (dø, *0D* ) I IF  I < >0  THEN  GOSUB  910! dø-LEFTø ( dø, 1 - 1 ) 4qdø4HIDø ( dø, 1 42 ) ! 6- 
*42 

870  I*  INSTR  (dø,  *QE*  >  I  IF  IOØ  THEN  GOSUB  9301  dø-LEFTø(dø,  i  -  1 )  4q*ø4HIDø  (  dø,  1  42)  :  •- 
•  ♦  1 

880  RETURN 

890  z-PEEK(6>  IOOSUB  1310!  IF  M-l  THEN  qcø-vø  ELSE  qcø-cø 
900  RETURN 

910  z-PEEK<*) 42360PEEK ( *41 ) IOOSUB  1300: IF  M-l  THEN  qdø-vø  ELSE  qdø-cø 
920  RETURN 

930  z*PEEK<*) I GOSUB  13201 IF  hf-1  THEN  q«ø-HEXø( *4l4*,4)  ELSE  q*9-STR9 ( X4 1 4*) 

940  RETURN 

930  d9-LEFTø<dø, 1  - 1 > 4 *HL * *MIDø (dø,  142) IRETURN 
960  dø-LEFTø(dø, 1  - 1 ) 4 • IX* 4MI DØ t dø, 142) IRETURN 
970  dø-LEFTø (dø, 1-1 ) 4*IY*4MID9(dø, 1 42) IRETURN 
980  dø-LEFT9(d*, 1-1 ) 4* (HL) *4MID9(dø, l *2) I  RETURN 
990  z-PEEK(d*)  I  GOSUB  1320!  IF  M-l  THEN  cø-vø 

1000  dø-LEFTø (dø, 1-1)4* (IX*4Cø4* ) * 4MI Dø < dø, 1 42) I *-d*4 1 : RETURN 
1010  z-PEEK(dø) I GOSUB  1320! IF  hf-1  THEN  cø-vø 

1020  dø-LEFTø (dø, 1-1)4* (IY*4Cø4*) *4MIDø(dø, 1 42) : *-d6* l : RETURN 
1030  ’  ***  HOVEDRUTINE  (HH) 

1040  *o-a 

1030  IF  *o>ølut*  THEN  1330 
1060  a-*-l 

1070  cløøø-ØI Indøx— 0 
1080  d*-*43 
1090  *— •♦ 1 
1100  by t«-PEEK (*) 

1110  IF  cløcsOØ  THEN  1160 

1120  IF  bytø-203  THEN  cløs«-l!GOTO  1090 

1130  IF  bytø-237  THEN  cl**«-2!G0T0  1090 

1140  IF  byt**221  THEN  Indvx-llGOTO  1090 

1130  IF  byt*-233  THEN  lnd*x-2:GOTO  1090 

1160  IF  c  1  *•*■  1  AND  i  r>d*x  <  >0  THEN  *-d«4  1 :  by  t*-PEEK  (*) 

1170  GOSUB  310 
1180  a-a*l 

1190  IF  INSTR (dø, *0* ) <  >0  THEN  GOSUB  810 
1200  IF  c  1  •••- 1  AND  lndtxOØ  THEN  6-64  1 
1210  GOSUB  1240 

1220  WHILE  INKEYø< >" *  I WEND! IF  INKEY(47)-0  THEN  GOSUB  1330 

1230  GOTO  1030 

1240  *  (HH1  UDPRINTNING  #0* 

1230  IF  M-l  THEN  PRINTØvtra, HEXø ( ao, 4 ) | * :  *  I  I  FOR  n-60  TO  •- 1 1 PRINTØstr«, HEXølPE 

EKln) ,2) I  *  *1  I NEXT I  PRINT  N*trn,TAB( 23) I  dø 

1260  IF  M  *0  THEN  PRINTØM r» , USING* 00000" 1  ao I  i PRINTftat r», • J * | I  FOR  n-*o  TO  *- 1 1  PR 
INTØ*tr»,STRø(PEEK(n) ) 1  I NEXT : PRINTØM rm, TAB  1 23) l dø 

1270  t-t4 1  I IF  f>-24  THEN  WHILE  INKEYø< > *  *  I WEND! PEN  3 1  PR I NT  *  * t CHRø < 24 ) | ‘ENTER* I  C 

HRø(24)  I  *  :  f  or  t6*M  *  1  I  WHILE  INKEY(47)  — 1  AND  INKEY(IØ)  —  1  AND  INKEY  ( 6) -- 1  I  WENDt  t 

— 0 I LOCATE  1,23 I PEN  1 

1280  RETURN 

1290  GOTO  1030 

1300  '  (HH)  MENU  1  *** 

1310  INPUT*d#c  /  hø*  7  (d/h)  * , lø 
1320  M-14  (LOWERø«  lø)-*d*) 

1330  GOSUB  1330 


DISASSEM 


/ 


AMSTRAD 


WT- 1 


r  k,.. 


Eks*mp*  1  I  Et  Mykk*  •« 


LD  B, DF 
OUT  (C )  ,  A 
LD  HL.B1A8 
LD  B, (HL) 
LD  ( HL ) , A 
PUSH  BC 
PUSH  IY 
C  C  C  A 
CP  07 

JR  NC , B9F2 
ADD  A , A 
ADD  A,AC 
LD  L ,  A 
ADC  A, Bl 
SUB  L 
LD  H,  A 
LD  A, (HL) 
INC  HL 


.og  «*■«!•  ttykk« 

370!  6  223 
372!  237  121 
374!  33  168  177 


LD  B,  223 
OUT  (C ) , A 
LD  HL,  43480 
LD  B, (HL) 

LD  ( HL ) , A 
PUSH  BC 
PU8H  IY 
DEC  A 
CP  7 

JR  NC,  47602 
ADD  A, A 
ADD  A,  172 
LD  L ,  A 
ADC  A,  177 
SUB  L 
LD  H,A 
LD  A, (HL) 

INC  HL 


1340  GOTO  1030 

1330  ’  (HH)  MENU  2  (HH) 

1360  PRINT*M6r  tadr*«6*  *|!IF  M-0  THEN  PRINT*  (døc)  *|  ELSE  PRINT*  <h*x)  *  I 
1370  INPUT** ,*drø! IF  adrø-**  THEN  1360 

1380  PRINT*6lutadr*««*  ■ | ! IF  M-0  THEN  PRINT*(d«c)  *|  EL8E  PRINT*(h*x)  *| 

1390  INPUT**, *lut6drø! IF  slutadrø-*’  THEN  «lutAdrø-*0* 

1400  IF  6drØ-*  *  THEN  1360 

1410  INPUT*Ørt«k»*  t*kM  paa  prlnt*r  (t**t  P)  *,10 
1420  IF  LOWERø ( 10) < >*p*  THEN  strm-Ø: GOTO  1430 
1430  Mrai-8 

1440  PR I NT* hold  C  SPACE  1  n*d»  for  at  afbryd«* 

1430  IF  hf -0  THEN  RESTORE  14301F0R  n-0  TO  7: READ  aø ( 1 1 , n) ! NEXT : a-VAL < 6drø)  ELSE 
6-VAL  (  *lch*  *6drø)  :  DATA  00,08,  16,24,32,40,48,36 

1460  IF  hf-0  THEN  s  I  ut  6-VAL  <  •  lu  t  ad  rø)  ELSE  6lut6-VAL  (  *lih*4«lul6drø) 

1470  IF  sluta<-0  THEN  s  I  ut 6— 633364* lut« 

1480  IF  *<0  THEN  a-633364* 

1490  t-t43! RETURN 

1300  c ø— STRØ ( z ) ! vø-HEXø(z,4) ! RETURN 
1310  cø-STRø(z) I vø-HEXØ < z , 2 ) ! RETURN 
1320  x-x!IF  x  > 127  THEN  x-x-236 

1330  IF  x<0  THEN  CØ— *  -  *  4 STRØ ( ABS ( x) )  ELSE  cø- *  4 ■ 4 STRØ ( x ) 

1340  IF  x<0  THEN  vø—  *  -  *  4HEXØ ( ABS ( x ) , 2 )  ELSE  vø« *  * • »HEXø < x, 2) 

1330  RETURN 
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Her  er  en  hjælp  til  alle  dem, 
der  taster  maskinkodepro¬ 
grammer  ind.  Tit  er  disse 
nemlig  kun  offentliggjort  som 
fuldstændigt  uforståelige 
rækker  af  tal.  Med  dette  pro¬ 
gram  har  du  mulighed  for  at 
få  listet  maskinkoden  ud  på 
en  mere  forståelig  måde: 
Som  Z80  assemblersprog. 
Hvis  du,  kærer  læser,  er  ved 
at  stå  al  her  kan  vi  oplyse,  at 
der  findes  udmærkede  bøger 
om  Z80  maskinkode  både  på 
engelsk  og  efterhånden  også 
på  dansk,  som  skulle  kunne 
forklare  maskinkodepro¬ 
grammering  i  detaljer. 
Indtastningen  af  disassemble- 
ren  skulle  ikke  volde  nogen 
vanskeligheder.  Derimod 
skal  man  være  opmærksom 
på,  at  den  maskinkode,  som 
skal  disassembles,  ikke  kan 
ligge  hvorsomhelst,  fordi  dis- 
assembler  og  kassettebuffer 
også  fylder  op  i  RAM.  Hvis 
man  derfor  sætter  HIMEM 
(med  MEMORY-instruktionen) 
til  mindst  adresse  1 0899  og  så 
holder  sin  maskinkode  over 
denne  adresse,  vil  der  ikke 
opstå  problemer. 

Under  kørslen  disassembles 
samtlige  anerkendte  Z80-ko- 
der  (også  dem  med  ED,  BC  og 
indexregistrene)  til  standard 
Z80-mnemonics  (dog  undta¬ 
gen  OUTI  og  OUTD  som  disas- 
sembleren  oversætter  til  OTI 
henholdsvis  OTD).  Udover  in¬ 
struktionen  udskrives  også 
adressen  og  de  bytes,  instruk¬ 
tionen  er  opbygget  af.  Da  alt 
disassembles,  såvel  program 
som  data.  får  man  derved  en 
mulighed  for  at  skelne  in¬ 
struktioner  og  data  fra  hinan¬ 
den.  Hvis  en  udskreven  in¬ 
struktion  indeholder  '?'  eller 
er  over  4  bytes  lang,  er  det  en 
'ulovlig'  instruktion,  dvs. 
sandsynligvis  data,  der  disas¬ 
sembles. 

Hvis  man  under  disassemb- 
lingen  ønsker  at  indtaste  nye 
start-/slutadresser  skal  man 
blot  nedtrykke  spacebar'en, 
og  har  man  en  printer,  er  der 
også  mulighed  for  at  bruge 
den. 


Med  Vie-Grafik  kan  du  i  høj¬ 
opløsningsgrafik  få  diagram¬ 
mer  over  f.eks.  salgstal  i  et  år, 
olieregninger, 

Benzinpriser  eller  hvad  du  nu 
kan  finde  på.  Det  selvforkla¬ 
rende  program  er  nemt  at  be¬ 
tjene  og  kører  på  en  stan- 
dard-VIC-20. 

Bjarne  Knudsen 


lø  DHTH  ø,ø,ø.ø,ø,ø.ø.255  - 

2ø  DATA  ø,ø,ø,  ø ,  ø ,  ø  ,  255 , 255 
3ø  DRTR  Ø,ø,ø, ø , 0 , 255 , 255 , 255 
4ø  DRTR  ø ,ø,ø,ø,255, 255 , 255 , 255 
5ø  DRTR  ø , ø , ø , 255 , 255 , 255 , 255 , 255 
6ø  DRTR  ø,ø,255 , 255 , 255 , 255 , 255 , 255 
7ø  DRTR  ø , 255 , 255 , 255 , 255 , 255 , 255 , 255 
8ø  DRTR  255 , 255 , 255 , 255 , 255 ,255 , 255 , 255 
9ø  P0KE368 79 , 8 • F'Uk.E36869 , 255 

1 øø  F0RF=7 1 68TG7 1 67+ < 8*8  > : REHDR : I FA>øTHENR=H- 1 28 
lø5  POKEF , R : NEXT 
llø  PR  I  NT M" 

1 2ø  F0RF=7 1 68+256T07 1 68+263 : POKER , ø ; NEXT 
1 3ø  PR  I  NT  "  SSHVGR  MANGE  MRRNE  DER  <  1  - 1 2  >  "  :  1  NPUT "  3" ,  X 

140  DIM  R < X > 

15ø  PR I NT" 3" 

16ø  F0RF=1TQX 

1 7ø  PR  I  NT  "  SWAANED  "  ,  F ,  “  MRX  1 7ø  " 

180  INPUT"  3" ,  V  :  A(F)=V 
19ø  NEXT 
2øø  PR  I  NT  "IT 

2  lø  PR  I  NT  "  F  MAM-JJ  RSONDS' 

215  R=1 

22ø  FORF =8 1 47T08 1 46+X 

23ø  Q=F : W=ø : 0=1 

24ø  POKEQ , W ; I F 0=R < R >  THEN480 

25ø  W=W+1 : IFW=8THENQ=Q-22- W=ø 

255  0=0+1 

26ø  G0T0240 

4øø  R=R+1 : NEXT 

4iø  PR  I  NT " SSNYT  DIRGRRM  TRS’i  'F1  fli" , 

420  GETRJ • I Ffl$= “  ■"  THENRUN 

430  FGRP= 1 T04øø : NEXT 

44ø  PRINT "NVT  DIRGRRM  TAST  ' 

445  GETR$: I F A$= “  ■"  THENRUN 
450  F0RP= 1 T04øø : NEXT 
46ø  GOT 04 1 ø 
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Cosmic 

Changa 


Du  betinder  dig  i  en  firkantet 
rumstation,  som  kan  skyde  i  8 
retninger. 

Du  bliver  angrebet  at  UFO 'er 
fra  kampstjernen  Changa. 
De  skal  selvfølgelig  skydes 
ned,  inden  de  ndr  din  rum¬ 
station.  Rammes  stationen  at 
en  UFO,  sprænges  den  i  lut¬ 
ten,  og  spillet  er  slut.  »Cosmic 
Changa«  er  selvforklarende 
og  bliver  sværere  med  tiden. 

Brian  Rasmussen 


ø  PR  I  NT  "3"  \\ 

1  F0RK=54272T05429b :  POKEK,  ø  \  »»  il 

2  M=255L=129  \  . 

3  P0KE54285,5  \ 

4  P0KE54277 ,  1  ø :  P0KE54284  ,  1 1 

5  PR  I  HT "  KEVS  "  ;  PR  I  NT  "  Z=VENSTRE  OP"  :pYlNT"X=VENSTRE" :PRINT"C=VENSTRE  NED" 

6  PR I NT " V=NED " : PR I NT " M=OP " :  PR  I NT " , =HøJRE  NED" : PRINT" . =HøJRE" : PRINTV=HøJRE  0P"\ 

7  PRINT"F(NV  KEV  TO  CONTINUE"  XA 

8  1 FPEEK  C 1 97  i  =64THEN8  A 

tø  PRINT'TJ"  :  P0KE53280, ø :  P0KE53281  < ø  \ 

2ø  8=53248 

30  PQKER+21 , 15 :  POKER+40,  1  •  POKER+39 . 7 :  POKEH+41 , 9  •  POKER+42, 1 
4ø  P0KE2040 , 1 1 : PQKE204 1,13: pij«E2ø42 ,14: P0KE2043 , 1 5 
50  F0RK=øT062 : RERDB = P0KE704+K , B : NEXT 

6ø  DRTR1Z8, 24, 1 , 96, 24, 6, 112, 60, 14, 60, 6ø, 60, 30, 60,  l2ø, 31 , 126, 248, 15, 255, 24ø 
7ø  DRTR7, 129,224,7,66,224,63,36,252,255,24,255,63,24,252,7,36,224,7,66,224 
8ø  DRTR15, 255, 240 ,31,1 26, 248 , 30 , 6ø , 1 20, 60, 60, 60, 112, 6ø, 14, 96 ,24,6, 128, 24 , 1 
9ø  POKER, 128: POKER+1, 128 
1 00  F0RK=øT04STEP3 : POKEK+832 , 24 : NEXT 
1 1 ø  F0RK=øT028 : RERDB : P0KE896+K , B : NEXT 

120  DflTRØ, 6ø, ø,ø, 255, ø, 1 , 195, 128,3, 129, 192,3, 129, 192.3, 129, 192,3, 129, 192 

130  DRTfll, 195, 128,0,255,0,0,60 

140  F0RK=øT062 : RERDB : POKEK+960, B : NEXT 

1 50  DRTR1 37 , 17,34,ø,ø,ø, 36 , 146,72,0,0,0, 137 ,85,36, 32 ,ø,8,2, 186, 128, 1 36 ,0,36 
160  DRTR36, ø, 136, lø,ø, 160, 170, ø, 170, 10, ø, 160, 34, ø, 136,  136,0,34,2, 186, 128 
17ø  DRTR32,ø,8, 137, 185,66,ø,ø,ø,36,  ).36,72,ø,ø,ø,  137,17,36 
200  POKEfi+39 ,  7 :  P0KE54278,  1  :  P0KE54296, 15  :P=-1  :  F=1  :  B=ø  :  C=5 

300  POKER+6, B : POKER+7 , C-5 

301  POKER+4 1 ,  RND  Cl )  *  1 5+ 1 :  POKER+2 ,  ø :  P0KE54283 , 0 :  P0KE54280 , 2 :  P0KE54283 , 1 29 

302  I FP=0THEN0=0+ 1 ø = F=F+. 5 : 1FF>13THENF*13 

305  P=P+1 : PRINT"«" : PR IN1SPCC31 > "PO TNT "P"  " 

3 1 ø  POKER+7 , ø : POKEfl+6 , ø : H= I NT  C  RND  C 1 >  *8 )  + 1 : 0NH00T0500 , 700 , 7 1 0 , 720 , 730 , 74ø , 750, 760 
500  B=ø : C=6 : 2=F : X=F 

51ø  Q=PEEK< 1971 : IFQ=12THENP0KE54276 , ø : P0KE54273, M • P0KE54276, L : G0T01000 

520  I  FCl=23THENP0KE5427  6 ,  ø :  POKE54273 ,  fl :  P0KE54276 ,  L  :  00  T02000 

530  IFQ=2øTHENP0KE54276, ø : P0KE54273, M : P0KE54276, L : 001 03øøø 

540  I FQ=3 1 THENP0KE54276 , ø : P0KE54273 , M : P0KE54276 , L : 00T04000 

550  IF0=36THENP0KE54276, ø : P0KE54273, N : P0KE54276, L ■ OOTOSøøø 

56ø  I FQ=47THENP0KE54276 , ø : P0KE54273, M : P0KE54276, L : 00T06000 

57ø  IF0=44THENP0KE54276, ø : P0KE54273, M : POKE 54276, L : O0T07000 

58ø  I FG=55THENP0KE54276 , ø : P0KE54273 , P : P0KE54276 ,  L ; OOTOSøøø 


m 


52ø  I FQ=23THENP0KE542?6 , ø : POKE54273 , M : POKE54276 , L : 00  TO; 
530  IFQ=2øTHENP0KE54276,ø : P0KE54273, M : P0KE54276, L : 001 0 
540  I FG=3 1 THENP0KE54276 , ø : P0KE54273 , M : P0KE54276 , L : GOTO 
550  I  FQ=36THENP0KE54276 , 0 :  P0KE54273 ,  M :  P0KE54276 ,  L  :  GOTO 
56ø  I FQ=47THENP0KE54276 , ø : P0KE54273, M : P0KE54276,  L : GOTO 
57ø  IF0=44THENP0KE54276, ø : P0KE54273, M : POKE 54276, L : GOTO 
580  I  FQ=55THENP0KE54276 ,  ø :  P0KE54273 , 0 :  P0KE54276 ,  L  :  GOTO 
59ø  B=B+X : C=C+2  =  POKER+4 , B : POKER+5,  C 

600  I  FC+5>  1 28RNDC- 1 5<  1 28RHDB+ 1  ø>  1 28HHDB- 1  ø<  1 28THEN9000 
610  00T0510 


P0KE54276, L : G0T01000 

G0T02000 

001 03000 

00T04000 

OOTOSøøø 

OOTOSøøø 

GOT 07000 

OOTOSøøø 


7øø  C=133 
710  C=255 
72ø  C=255 : B= 1 28 : Z=-F : X=ø : 00  T05 1 0 
730  C=255 : B=25ø ; X=-F • Z=-F : G0T0510 
740  0=133 : B=255 : X=-F : 2=0 : 60T0510 
75ø  0=8 :  B=255 :  X=-F :  2=F :  G0T0518 
760  B= 1 28 : 0=0 : X=ø : 2=F : G0T05 1 ø 

løøø  D=136 : F0RK= 1 30T040S TEP-8 : D=D-8 • POKER+2, D : POKER+3, K : B=B+X : 0=0+2 : POKER+4, B 


B=ø : X=F : Z=ø : G0T0510 
B=5 : X=F : Z=-F : 00T0518 


COMMO 

DORE 

64 


50  SOFT  Special 


HCT 


Black  Jack  eller  2 1  hører  til  de 
populæreste  kortspil  over¬ 
hovedet.  Ved  hjælp  at  dette 
program  til  Commodore  64 
kan  du  optræne  dine  færdig¬ 
heder,  så  du  ikke  taber  næ¬ 
ste  gang,  du  udiordres  til  2 1 . 

Spillet  er  i  øvrigt  selvforklaren¬ 
de. 

Karsten  R.  Larsen 

lø  PRINT"D"  DlMHf(52),  rf<38),Bf(52>,B<52> 

15  PRINT" lUlniawcMWnliM  VENT  t.T  øJEwlK" 

20  lf(0)="  - sNUIUIi" 

3ø  Tf  <  1  >■" - - 

4ø  Tf <2)*"  I  I  UBBBBBBI 

50  Tf (3>=“  I  lø  ly  i  UBBBBBBI' 
bø  Tf (4)="  19  9  I  UBBBBBBI 

70  Tf <5>“"  1 0  i  iNHimi 
8ø  Tf (6)*" I  7  I  UBBBBBBI 
90  Tf<?>*"  16  *  i  UBBBBBBI 

100  Tf (8>="  15  5 1  UBBBBBBI 

liø  Tf(9)*"i4  4  ubbbbbii 

120  Tf(lø)="l3  Ifllimil 
130  i$ai;«"i2  i  ubbbbbbi 
148  Tf ( 12>*“ iknøgi  i  ubibibbi" 

150  Tf(13>*" ID8ME  I  UBBBBBBI'' 

160  Tf  v. 14;*" iKONGt  I UBBBBBBI' 

170  Tf(15)="lES  ES  I  UBBBBBBI' 

180  Tf  ( 16)  =  "  14  1 1  UBBBBBBI 
19ø  Tf C 17)*" I  *  t  I  UBBBBBBI' 

2øø  Tf(18)*Ml  t  i  UBBBIBBI 
2lø  Tf  (  19)="  1 4  +  I  UBBBBBBI' 

22ø  Tf  (20)*"  I  4  4  l  UBBBIBBI" 

230  Tf  (21)*“  I  4  I  UBBBBBBI ' 

240  Tf  (22>*“  I  •  •  I  UBBBBBBI" 

250  Tf  (23)*“  I  9  9  I  UBBBflBBl 1 
260  Tf(24>=" I  9  I  UBBBBBBI 
270  Tf (25)“"  I  ♦  «  i  UBBBBBBI 

280  Tf  (26)*“  I  ♦  ♦  I  UBBBBBBI1 
290  Tf(27)*Ml  ♦  i  UBBBBBBI 

3øø  Tf(28)*"B" 

3it  Tf(29)*"W" 

320  Tf(30)*“l«MMil  UBBBBBBI 

400  REM  ****  SP8R  FRR  ES  TIL  KO  **** 

4øl  DHT828, 0.15,2,2, 18.2.2. 15,1 

402  D8T828, 0,11,2,18.2.18,2,11,1 

403  DHTH28, 0,  lø, 16,2, 16,2, 18.10, 1 

404  D8TH28, ø, 9, 16,2,2,2, 16,9, 1 
4ø5  DRTR28, ø,8, 16,2,18,2, 16,8, 1 

406  DRTR28,ø, 7, 17,2, 17,2, 17,7, 1 

407  DRTR28, 0,6, 16, 18, 18, 18, 16,6, 1 

408  DflTR28,0,5, 16, 18, 16, 18, 16,5, 1 

409  DATR28, ø,4, 16, 17,18, 17>16, 4,1 

410  rtiTR28, ø,3, 16,17,16,17.16,3,1 

411  DRTR28,ø, 12,2,2,18.2,2,12,1 

412  DRTR28,ø, 13,2,2, 18,2,2, 13,1 

413  DAT828,0, 14,2,2, 18,2,2- 14.1 

5øø  F0RK=øT05 1  STEP  1 3  -  FORV*  1  Tul 3  FORX*  1 T01  ø  REHDH 

51ø  I FK>25fiNDX= 1 T HEN8“H+ 1 

520  1 FK> 1 28NDX>3RNDX<98NDH<>2 i HENR=h+Z 

530  Rf(V+K)*Rf(V+K)+Tf(8) 

540  NEXTX,Y  RESTQREZ=Z+3  NEXT 

550  Kf="3"+Tf  (0)+Tf  <3ø)+Tf  (30)+Tf  (3M)+lf  (30)+Tf  i.3ø  >  +  Tf  (3w)+ i f (3ø)+Tf ( 1 ) 

6øø  PRINT "3m*+****4*****+*  BLHCKJHCK  **♦**:*♦**♦:.♦♦*»'' 

61ø  PR I NT "HVOR  MRNGE  SKRL  SPILLE  (1-5)?  ", -INPUTS? 

620  IFSP<10RSP>50RSP<>INT(SP)THENPRINr":TT  G0T061R 
63ø  F0RT=1T0SP 

64ø  PR  I  NT  "  ll“  T  M  SP I LLER  HEDDER", : lNPUTSRf< T) 

650  NEXT 

660  PR  I  NT  "WW)  IL  DU  HRVE  REGLERNE  IXN" 

670  GETCf : IFCf*" "THENb/Ø 
68ø  I FCf * " N " THEN800 

7øø  PRINT Bi.rtCKJRuK  ****«*****44»*" 

7 lø  PRINT" I  FrtRR  HVER  1000KR  HT  SPILLE  FORJtf" 

720  PR  I  NT  "DET  GRELDER  OM  RT  KOMME  SRH  TRET  PRH  21«" 

730  PR  I  NT  "SOM  MULIGT.«" 


74ø  PRINT"KOMMER  DU  OVER  Kl  HRR  DU  TRBT.  «" 

75ø  PR  I  NT  "  B I LLEDK  URT  FNfe  GRELDER  *-OR  lø«" 

76ø  PRINT"ES  GREL  Ut R  tOR  1  FILFR  11«' 

770  PR  I  NT  “OG  DE  RNORE  KORI  FOR  DP1RES  VREROI.«" 

780  PR  I  NT  “DU  KRN  IKKE  SPlLlh  FOR  MERE  END  OU  HHR  «" 

785  PR I NT “OG  KUN  FOR  HELE  KR.U" 

786  PRINT“HVIS  DU  HhR  5  KURT  OG  MINDRE  ENl.i  Kl" 

767  PRINT"lfcHH  BLIVER  Ut  I  REGNF  V  m>r  k\  . 

790  PRINT'  TRVK  8F7!P  NhhF  DU  ER  kLHk" 

795  GETCf  IFCf <>“BI"THEN7V5 

8øø  G0SUB9000  POKE5328ø,6  P0KE5<28i , 1^  PR INI" D" 

810  FORT=lTOSP -Sp(T )=iynø • NEX i 
820  Q*1  PX=1 

9øø  PRINT^TmBMWmW'Bf (8)  •  U»B(Q)  •  EX*0 •  E  lX*ø ;  Ih=o  IFB<0-**1 1  THENtX*!- GOSUBGøøø 
910  Q=G+1  PRINT"Bj"Kf  Ol=B(Q>  •  K lf =Bf (0  >  •  IFB<0>*1  lTHENt  1X*1  ijOSuBEøøø 
920  PRINT"  «UW»lKW*i«il»rSPf(PX>"  DU  HHR  KR.  “SP(P V.) 

930  PRINT"HVOR  M6GE1  Vil  DU  SHISE",  INPUTSH 

935  IFSR<øORSR>SP(PX)URSR<>lNT\SR,rHtNPRINI"TJ"  GUTu93ø 

940  PRINT “VIL  DU  HRVE  FLERE  kURl  J/N" 

95ø  GETCf 

960  PRINT" ' TR«< 28) " 3> " , 

970  F0RT*ØT01øø  NEXT  PRINI’II  “ ■ F0RT*0 I OlRØ ■ NEXT 

980  IFCf*" "THEN950 

990  IFCf*" J“THEN2øøø 

1000  G0SUB6000  PRINI"«“Klf  lH=ø 

1005  IF01<2lHNDTH*32THEN01*2l  GOTOl5øø 

lølø  IF01>*17THtN1500 

1020  F0RT*øT05øø  NEXT  G0SUB600H 

1030  0*0+ 1  T8*TR+8  PRINT"«'  IRH(lH>B*(0>  ■  1FB(U)*I  17HEN*-'1J'=P1>'.M 
1ø4ø  01*01+B(Q)  IF01>21HNDPlXyøTHENNl-Ul-»ø  P1X=P17.-1 
lø5ø  GOTO løø5 

1500  IF01>21THENPRINT  oKWWWiAUWlWNtUiWWmttWttllJhij  HHR  FOR  MHNGE  DU  V8NDT"S8“KR.  “ 
1510  I Ful >21 THENPRINT“OG  DU  HHR  NU"SP(PX)+SR"KR. " : SR(kX/=SP(PX)+SH  G0T01560 

1515  IF01*01HENPR1N  I  " ^  .Mt-  G  TORT" 

1516  IF01=0THENPRINT "OG  DU  HHR  Si RDiG"SPi PX,  G0T01560 

1520  IFOKOTHENPRIN  I  VHNDT 1  SH"KR.  " 

1530  IF01<0THENPRINT"OG  DU  HHR  NU"SP(PX)+SH"KR.  "  sP<  PY.  ,=SP(P7.)+SH  G0T01560 
1540  IF01>0rHENPRINT  HHR  THBr"SH“KR.  " 

1550  IF01>0THENPRINT"0G  DU  HHR  NU"SP(PX)-SH"KR. 1 ILBHGt "  sP(RX/=SP(PX)-SH 

1560  FORT*øTO løøøø  NEXT 

1562  P y.-P'/.*l  1  FSP( PX ) <>ØTHENPX*PX+ 1 

1570  IFPX>SPTHENPX*1 

1575  KK*0  FORSS*l TOSP ■ IFSP(SS)=øTHENKK*KK+l 

1576  NEXT  IFKK*SPTHEN5000 

1577  IFSP(PXX*øTHEN1562 
158ø  0*0+1 

1590  IFQ>42THENG0SUB9øøø 
1600  G0T0908 

2000  0*0+1  TH*TH+8  G0SUB600H 

2010  PRINT THB<  TH^Kf(.U)  :  IFB^-Q)*!  1 1HENEX=EX+1 
2020  0*0+B(G> 

2030  I  F0>2 1  HNDEX>øTHENU*0- 1  ø  EX=E?i- 1 
2048  I F0>2 1 T  HEN2 1 Øø 
2050  I F0<2 1 HNDT H*32THEN0=2 1  GOTOløøø 
2060  GOT 0950 

21øø  PRINT'  SWWIDU  HHR  FOR  MEGET  UG  HHR  T8BT  kR.  “SH  SPvPX i*SP(PX)-SH 
2110  PRINT "OG  HHR  NU"SP(PX) "KR. TIlBHGE" 

2120  PRINT'  flT'Klf  F0RT*øT01øøøø •  NEXT 
2122  PX=P/i+l  IFSP(PX)<  *ØTHENPX=PX+1 
2130  I FPX>SPT HENPX* 1 

2135  KK=8  F0RSS=1T0SP : IFSPt SS)*01HENKK=KK+1 

2136  NEXT  IFKK=SPTHEN50øø 

2137  IFSP(PXK*ølHEN2122 
214ø  I FQ>42THENG0SUB90øø 
2150  0=0+1  1 fi*0  G0TO900 

5000  P0KE53280,  14  P0KE53281 , 6 : PRINT  '.TI'' 

5010  PR  I  NT  “  ■l*WHiWKl*WWMT;TÆTv'  i  L  DU  SPILLE  MERE  HVIS  JH  TRYK  Sfl«" 

5028  PR  I  NT  "  KlsTsTjflV  I S  NEJ  SF  79" 

5ø3ø  GETCf  IFCf *““THEN5ø3ø 
5040  IFCf* THEN600 

5050  P0KE53280, 14 : P0KE53281 ,6  PRINT "D"  END 

6000  S=5427.2  POKES+24, 15  P0KES+5,  lø  POKfcS+6, 128  P0KES+4, 129 ■  ROKES, 37  POKES+1 ,  17 
6810  F0RX=øT05ø : NEXT  PuKES+4 , ø  RETURN 

9005  F0RT*1  TQ52  ^  Bf  (T  NEXT  °  LHN  ^  t0R,tNH 

9010  F0RT=1T052 

9ø2ø  fi*INT<RND( 1)452)+ t 

91øø  S=54272  POKES+24, 15  POKEs+5. 128 : PUKEs+6 • 128 • PuKES+4 .129  POKES, 3?  POKES+1 . 1 / 
9110  F0RX*øT03ø  NEXT  P0KES+4,ø 
9120  IFBf(H)<>""T HEN9020 
95øø  Bf <H)*Ht( F ) 

952ø  Cf=MIDf‘Bf<H>. 18.2) 

9530  B(fl)*VHL(Cf> 

9540  IFCf="ES"THENB(H)=l 1 
9550  IFB(H)*ØTHENB(H)=lø 
99øø  NEXT  0=1  RE I URN 
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Snyd  (ikke)  -r= 
Dem  selv  i  skat! 

■  Dette  skatteprogram  be¬ 
regner  en  række  faktorer  ud 
fra  en  række  indtastede 
data.  For  at  programmet 
skal  virke  fuldt  ud,  skal  flg. 
data  indtastes: 

1 .  Kommuneskat  % 

2.  Kirkeskat  % 

3.  Amtsskat  % 


12.  Skattepligtig  indkomst 

13.  A-indkomst 

14.  Betalt  skat 

Flg.  kan  da  beregnes: 

1 .  Trækprocent 

2.  Skattekortsfradrag 

3.  Skat  i  kr. 

4.  Skat  i  %  af  skattepligtig 
indkomst 


REM  S**************************** 

REM  »BEREGNING  AF  TRAEKPROCENTEN* 

rem  ***************************** 

REM 

'  I FSK=ØTHENG0SUB7øøø 
Tl=<PF*<SG+T+PSV10ø>+SK 
TP=<Tl*løØVSI 
I FA I >S 1 THENTP=I NT  <  TP+ 1.5) 

I F A I<=S 1 THENTP= I NT  < TP+ 1) 
IFBT=“2"THENRETURN 

PRINT  "73" :  P0KE53280 , 2 :  P0KE53281  .•  2  ■'  PR  I  NT  "Bl" 


4.  Personfradrag  5.  Skat  i  %  af  A-indkomst 

5.  1.  Skattegrænse  i  %  6.  Restskat  i  kr. 

6.  2.  Skattegrænse  i  %  7.  Restskat  i  %  af  korrekt 

7.  3.  Skattegrænse  i  %  skat. 

8.  4.  Skattegrænse  i  kr.  Udover  det  er  programmet 

9.  2.  Skattegrænse  i  kr.  selvinstruerende. □ 

10.  Samlet  pensionsfonds  %  Carsten  Andersen 

1 1 .  Statsskatte  % 


10  REM  ***************************** 

11  REM  ********SKAERMBILLEDE******** 

12  REM  ***************************** 

13  REM 

15  PRINT"  73"  :  PQKE53280/  6 :  P0KE5328 1 , 6 :  PR  I  NT  "13" 

20  00SUB23000 

1000  REM 

1001  REM  *************************** 

1002  REM  »INDTASTNING  AF  SKATTEDATA* 

1003  REM  *************************** 

1004  REM 

1050  PRINT"73"  :  PRINT'"iTiTiTitiTiTiTiTifiTiTilSKATTEPROGRAM  1" 

1060  PRINT" WsTsTsTsTsTjTsWF  CARSTEN  ANDERSEN  1984." 

1070  PRINT":«****************************************" 

1090  INPUT"‘irøMl .  INDTAST  KOMMUNESKATS  ";KS 

liøø  INPUT'"irø2.  INDTAST  KIRKESKATS-  ";CS 

1200  INPUT" INDTAST  AMTSSKATS :  ";AS 

1300  INPUT'"=W4.  INDTAST  PERSONFRADRAG  ";PF 

1400  INPUT"'irø5.  INDTAST  1.  SKATTEGRAENSE  <S>  "ISO 

1500  I  NPUT "  'irø6 .  INDTAST  2.  SKATTEGRAENSE  <S>  "JSL 

1600  INPUT '":W7.  INDTAST  3.  SKATTEGRAENSE  <S>  ";SF 

1700  I  NPUT '"irøs.  INDTAST  1.  SKATTEGRAENSE  <KR>  ",S1 

1800  I  NPUT  "'il«?.  INDTAST  2.  SKATTEGRAENSE  <KR>  ";S2 

1900  I NPUT " Ml ø.  INDTAST  SAMLET  PENSIONSFONDSS  ";PS 

1930  I NPUT "Ml  1 .  INDTAST  STATSSKATTES  ";S 

2øøø  INPUT" Ml 2.  INDTAST  SKATTEPLIGTIG  INDKOMST  ";SI 

2010  I NPUT "Ml 3.  INDTAST  A-INDKOMST  ";AI 

2020  INPUT "Ml 4.  INDTAST  BETALT  SKAT  ";BS 

4øøø  REM 

4001  REM  *************************** 

4øø2  REM  **#****BEREGN I NGERNE******* 

4øø3  REM  *************************** 

4004  REM 

4øø5  PRINT" 73" ' P0KE53230 , 2 : P0KE5328 1, 2 : PRINT" S" 

4øø6  T=KS+CS+AS 

4008  PRINT"  'iTiTitiTiTiTiTiTiTiTiTilEEREGN  I  NGERNE  " 

4009  PR  I  NT  "  'iTiTiTiTiTiTiTiTiTiTiTiW************  " 

4010  PRINT'"iTiTiTiTiTiT««Ml.  TRAEKPROCENT.  " 

4020  PRINT"'iTiTitiTiTirø2.  SKATTEKORTSFRADRAG.  " 

4030  PRINT'"iT3TiTiTiTirøS.  SKAT  I  KR. " 

4040  PR  I  NT "  'iTiTiTitiTittM .  SKAT  I  S  AF  SKATPLG.  INDK.  " 

4050  PRINT" 'iTiTiTiTiTirøS .  SKAT  I  S  AF  A -.INDKOMST.  " 

4060  PRINT'"iTiTiT=TiTirøS.  RESTSKAT  I  KR.  " 

4070  PRINT'"iTiT=TiTiTirø7.  RESTSKAT  I  S  AF  KORREKT  SKAT." 

4071  PRINT " 'itiTiTiTiWF  1 .  EDITERING  AF  DATA" 

4075  PRINT" 'iTsTiTirøl NDT AST  TALLET  UD  FOR  BEREGNINGEN." 
4080  GETB$: IFB$=""THEN4880 

4090  I FB*= " 1 " THENG0SUB5000 

4091  I FB$=" 2“ THENG0SUB6000 

4092  I FBT= “3“ THENG0SUB7000 

4093  I  FB*= " 4 " THENG0SUB8000 

4094  I FB*= " 5 " THENG0SUB9000 

4095  IFBT="6" THENGOSUB 1 0000 

4096  IFBT="7 " THENGOSUB 1 1 000 
4897  I FBT = " ■" THENGOSUB 1 3000 
4098  RETURN 

5000  REM 


5050  PRINT" 'iTiTiTiTiTiTiTirøSMtlMMDERES  TRAEKPROCENT  =  "  :TP.:"S" 

5051  PRINT" Mfi(IMM«>I?ISlMS«M«iTiTi7iTi»3NSKES  FLERE  BEREGNINGER  <J/N>" 

5052  GETAi: IFAT=" "THEN5052 

5053  I FAT = " J " THEN4000 

5054  IFAT="N"THENRUN 

5055  IFATO'J" ORATO "N * THEN5052 
5060  RETURN 

6000  REM 

6001  REM  ***************************** 

6002  REM  »BEREGN.  AF  SKAT. KORTFRADRAG* 

6003  REM  ***************************** 

6004  REM 

6020  IFSK=øTHENGQSUB7øøø 
6025  I FTP=ØTHENG0SUB5000 

6030  SD=INT<(AI-<SK*100/(INT<TP*10)/10)>)/12) 

6035  PR  I  NT  "73"  P0KE53280 , 6  -  P0KE5328 1 , 6  -  PR  I  NT  "  4" 

6040  PRINT " MSMMHMiTiTilDERES  SKATTEKORTFRADRAG =  ";SD;“KR." 

6051  PR  I  NT "  MMWrølMMWBIMMMMiTiTiTiTiTUNSKES  FLERE  BEREGNINGER  <J/N>" 

6052  GETAT  IFAT= " " THEN6052  ; 

6053  I F A#= " J " THEN4000 

6054  I FA*= " N " THENRUN 

6055  I  FA*<> "  J "  ORATO  " N  "  THEN6052 
6060  RETURN 

7000  REM 

7001  REM  ************************** 

7002  REM  *♦*♦ »BEREGN.  AF  SKAT****** 

7øø3  REM  ************************** 

7004  REM  f 

7øø5  I FS I  <=S  1  THENGOSUB  1 2008 

7010  I FS I >S 1 ANDS I <=S2THENG0SUB 12400 

7ø2ø  I FS I >S2THENG0SUB 1 2800  ; 

7025  S9=  <  S I / 1 00 ) *PS 

7ø3ø  Sø=(SI/løø?*T  ; 

7035  SO=CPF/løø>*<T+S+PS> 

7040  SK=S5+S9+Sø-S0 

7045  I FB*= " 1 " ORB*= "2" ORB* = " 4 " ORB* = " 5 "ORB*= "6" ORBT = " 7 " THENRETURN 
7085  PR  I  NT  "H"  P0KE532SØ ,  2 :  P0KE5328 1 , 2 :  PR  I  NT  "  51" 

7090  PRINT " 'iTiWHMBMMDE  SKAL  BETALE  ";SK;"  KR  I  SKAT." 

7091  PR  I  NT "  MMSSKKKKMiIMMM/iWiTiløNSKES  FLERE  BEREGNINGER  <J/N>" 

7092  GETAT: IFA$=" "THEN7092  i 

7093  IFA*="J"THEN4øøø 

7094  I FA$="N" THENRUN 

7095  I F A*<>"  J " 0RA$O " N "  THEN7092 

7096  RETURN 

8000  REM 

8001  REM  **************************** 

8002  REM  *SKAT  I  AF  SKATPLG.  INDK.* 

8003  REM  **************************** 

8004  REM 

8010  PR  I  NT  "  73" :  P0KE53280 , 2 :  P0KE5328 1,2  PRINT"S1"  | 

8020  I FSK=øTHENG0SUB7øøø 
8030  S A= I NT<  SK* 1 øø/S I ) 

8ø4ø  PR  I  NT"  MdirøWIHSDERES  SKAT  I  HF  SKATPLG.  INDK.  "ISA;" 

8042  PR  I  NT "  MMKMflMH«MM«M«iTiTiTiTi¥3NSKES:  FLERE  BEREGNINGER  <J/N)" 

8043  GETA* : IFAt=" "THEN8043  ! 

8044  I FA$= “ J " THEN4000 

8045  I F A$= " N " THENRUN 

8046  I F A*<> " J " ORAT O " N " THEN8043 
8050  RETURN 

9000  REM 

9001  REM  ************************ 

9002  REM  **SKRT  I  '/.  AF  A-INBK..*#* 

9003  REM  *»****♦♦*♦♦♦»***♦♦♦***♦»  | 

9004  REM 

9020  I FSK=ØTHENG0SUB7000 
9030  SN= I NT ( ABS < SK* 1 øø/A I? ) 

9035  PRINT  "  73"  '  P0KE53280 , 2 :  P0KE5328 1 , 2  ' PR  I  NT  "71" 

9040  PRINT" MTOfflWrøSRTilDERES  SKAT  I  V.  AF  A-INDK.  :  ";SN; "  V." 

9042  PR  I  NT "  !rø(rø««røirø7rø««iTiTiTiTii?NSKES  FLERE  BEREGNINGER  (J/N>“ 

9043  GETAT ; IFA$=“ "THEN9043 

9044  I F A$= " J " THEN4000  ! 
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9045  IFAt="N"THENRUN 

9046  I FR$<> “ J " ORflf O" N" THEN9043 
9050  RETURN 

løøøø  REM 

løøøl  REM  i«*****#*****#*#####*##**#* 

10002  REM  »BEREGN.  RF  RESTSKRT  (KR)* 

10003  REM  ************************** 

10004  REM 

10020  IFSK=ØTHENG0SUB7000 
10030  RS=SK-BS 
1 0035  IFBf=”7" THENRETURN 

10037  PR  I  HT  "IT  '  P0KE53280, 2 :  P0KE53281 , 2 :  PRIHT"!il" 

10048  PR  I  HT "  *KM!lSWiTiTiTiWDERES  RESTSKAT :  ";RS.:"  KR" 

10042  PRINT " K E S  FLERE  BEREGNINGER  <J/N>" 

10043  GETAt r IFAf=" "THEN10043 

10044  I FRt= “ J " THEN4000 

10045  I F  At = " N " THE NRUN 

10046  I  FRtO  "  J  “  ORRtO " H  "  THEN 1 0043 
10050  RETURN 

lløøø  REM 

lløøl  REM  **************************** 

11002  REM  »RESTSKAT  «  RF  KORREKT  SKAT* 

11003  REM  **************************** 

11004  REM 

1 1 020  I FRS=ØTHENGOSUB 1 0020 
1 1 030  RP= I NT  < RBS < RS  > * 1 80/BS  > 

1 1 035  PR  I  NT  "  ZT  '  P0KE53280 , 2 :  P0KE5328 1,2 -PRINT"  S?” 

11040  PRINT" HKKKKKiTiRESTSKAT  I  «  RF  KORREKT  SKAT :  ";RPl  ”  7." 

11042  PR  I  NT "  MKHKKKKHHKMHMWiTiWjTiløNSKES  FLERE  BEREGNINGER  <J/N>* 

11043  GETAt  IFAt=" "THEN1 1043 

11044  I FAt=" J "THEN4000 

11045  I FA$= " N " THENRUN 

11046  I FRf O " J " ORfl$<> ” N " THEN 1 1043 
11050  RETURN 

12000  REM 

12001  REM  ************************** 

12002  REM  »DEL  RF  SKATTEBEREGNINGEN* 

12øø3  REM  ************************** 

12004  REM 

12005  S5=S I *  <  SG/ 1 øø  ) 

12010  RETURN 

12400  S6=S1*(SG/100) 

12410  S5=(SI-S1 >*<SL/100)+S6 

12420  RETURN 

12800  S6=S 1  *  <  SG/ 100) 

12810  S7=(S2~S1)*(SL/100> 

12820  S8=S6+S7 

12830  S5=(SI-S2)*(SF/løø)+S8 
12848  RETURN 

13000  REM 

13001  REM  ************************ 

13002  REM  ****EB  I  TER  I NGSRIJT I NE**** 

13803  REM  ************************ 

13004  REM 

13010  GØSUB2 1 000 
13015  PR  I  NT  "71" 

1 3020  i  nput  "  ndtrst  nr  . " ;  r 

13021  I  Ffl=  1 THENPR I  NT  "  "TiWiTiTiTiTiTiTiTiTil  KOMMUNESKAT/! 

13022  I F  fl=2THENPR  I  NT  "  'TiTiTiTiTjTiTiTiTiTiTJ  KIRKESKAT« 

13023  IFfl^THENPRINT"rW^m=T=m2l  AMTSSKAT« 

13024  I  Ffl=4THENF'R  I  NT  "'TiTiTiTjTiTjTjTiTiTiTil  PERSONFRADRAG  " 

13025  I F R=5THENPR  I  HT  "  'TitiTiTiTiTiTiTiTiTiTill .  SKATTEGRRENSE  («)  " 

13026  I  Ffl=6THENPRI NT " r7;TiTjT;TiTiTiTiT;TiTÆl .  SKATTEGRRENSE  <«>  " 

13027  I  FR=7THENPR  I  NT "  "TiTiLTiTiTiTiTiTiTiTiT?.  SKATTEGRRENSE  («>  “ 

13028  I FA=8THENPRINT " ITiTiTiTiTiTiTiTiTiTill .  SKATTEGRRENSE  (KR)  “ 

13029  IFA*9THENPRINT" rTgMSHfSMTSmiE .  SKATTEGRRENSE  (KR)  " 

13030  I  FA=  1 ØTHENPR I  NT  ”  'TiTiTiTiTiTiTiTiTiTiTil  PENSIONSFONDS« 

13031  I  FA=  1 1  THENPR  I  NT  “  'TiTiTiMiTitiTiTlTiTil  STATSSKATTE«  " 

13032  IFA=12THENPRINT"TÆTiTiTiTSTiW2T£T=lSKATTEPLG.  INDKOMST 

13033  I  FA=  1 3THENPR I  NT  "  TiTiTiTiTiTiTiTiTiTiTil  A-  INDKOMST 

13034  I F A=  1 4 THENPR  I  NT  "  '7;TiTlT:T;TiTiTiTiT;Tjl  BETALT  SKAT 

13035  I  NPUT "  WiTiTitjTiTiTiTiTill  NDTAST  NV  VAERD!  ";B 
13040  IFA=1THENKS=B 

13050  I FA=2THENCS=B 
13060  IFA=3THENAS=B 
13070  IFA=4THENPF=B 
13088  I FA=5THENSG=F 
13090  I FA=6THENSL=B 
13100  IFA=7THENSF=B 
13110  IFA=?THENS1=B 
1 3 1 20  I FA=9THENS2=B 
13130  I FR= 1 ØTHENPS=B 
13140  IFA=11THENS=B 
13150  I F A= 1 2THENS I =B 
13160  I  FA=  1 3THENA  1=1: 

13170  IFA=14THENBS=B 

13180  PRINT" KWWKKKKKK.WiTiTÆil ISKES  FLERE  ÆNDRINGER  (J/N)" 

13190  GETBt  IFBt=""THEN13190 

13200  I FBt=" J " THEN 1 3000 

13210  I FB$= " N " THEN4000 

1 3220  I FBtO  "  J "  ORBtO  "  N  "  THEN131 90 

13230  RETURN 

21øøø  REM 

21001  REM  *************************** 

21802  REM  ♦*♦♦*♦♦* ♦LISTEVALG********* 

21003  REM  *************************** 

21004  REM 

2 1 005  PR I NT " IT  ' P0KE53280 , 6 - P0KE5328 1,6 -PRINT" S" 

21009  PRIHT"KM«KMMKM«;T.43NSKES  EN  LISTE  OVER  TALLENE  FOR  DE" 

21010  PR  I  NT  "  KiTiTsTiTill  NDTASTEDE  POSTER  (J/N)" 

21020  GETAt ■ IFA*=""THEN21020 

21030  I F At= " J " THENG0SUB22000 

21040  IFAT-"N"THEN13øl5 

21043  I  FASO  "  J  "  ORAt  O "  N  "  THEH2 1 020 

21045  RETURN 

22øøø  REM 


22øøl 

22002 

22003 

22004 

22005 
22øiø 
22020 
22030 
22040 
22050 
22060 
22070 
22080 
22090 
22100 
22110 
22120 
22130 
22140 
22150 
22160 
22170 
22175 
22180 
23øøø 
23010 
23020 
23038 
23040 
23050 
23060 
28061 

23062 

23063 

23064 

23065 

23066 

23067 

23068 

23069 

23070 

23071 

23072 

23073 

23074 

23075 

230SØ 

23100 

23101 

23102 
23110 
23120 
23130 
23150 
24øøø 
24010 
24020 
24030 
24040 
24050 
24060 
24070 
24080 
24090 
24100 
24110 
24120 
24130 
24140 
24150 
24160 
24170 
24180 
24190 
242øø 
24210 
24240 
24250 
24270 
24280 
24290 
24300 
24210 
24320 
24330 
24340 
24350 
24368 
25øøø 
25010 
25020 
25030 
25040 
25050 
25060 
25070 
25080 
25090 
25100 
25110 
25120 
25138 
2514ø 
25 1 80 
25200 
25210 


REM  *************************** 

REM  **♦»**♦♦***!.  ISTE*  ********** 

REM  *************************** 

REM 

PRINT":T  P0KE53280 , 6 : P0KE53281 , 6 : PRINT" * 

pr  i  nt  "  .  kommuneskat  " 

PRINT" 'itiTiWi TiTiTiE .  KIRKESKAT" 

AMTSSKAT" 

PERSONFRADRAG" 

1.  SKATTEGRAENSE 


S  13 


<«>" 
<«)•• 
<«>•• 
(KR)" 
(  KR  )  “ 


SKATTEGRAENSE 
SKATTEGRAENSE 
SKATTEGRAENSE 
2.  SKATTEGRAENSE 
SAMLET  PENSIONSFONDS«" 
STATSSKATTE«" 
SKATTEPLG.  INDKOMST" 

A- INDKOMST" 

BETALT  SKAT" 


PRINT"  '±Ti*iTiTiTiTiTsT3 . 

PRINT"  'iTiTiliTiTiTitiVl . 

PRINT"  'iTiTiliTiTiTiTÆ . 

PRINT'"iTiW;T=T=mf. 

PR  I  NT  "  VTiTiTiTiTiTiTilT . 

PRINT"9aSISiaSISH8. 

PRINT"'jTjTiTsTiT:Mit9. 

PRINT"'jT;T:T:7iT;T=llø. 

PRINT"'iT:T:TiT:Wi11 1 . 

PRINT"agB!STS!SW12. 

PRINT"'iTiTiT;W:W13. 

PR  I  NT  "  'iTiT:T:TiT:Ktl  4 . 

PRINT " WiWiTiTiTiTiWiWiTT AST  F3 
GETAt  IFAt=" "THEN22160 
I F A$= " 8" THEN 1 30 1 5 
IFA$0"B"THEN22160 
RETURN 
REM 

REM  ************** 

REM  * I NTROB ILLEDE* 

REM  ************** 

PEM 

PRINTTT  :  P0KE53280, 6 :  P0KE53281 , 6  :  PRINT"  T 
PRINT"**************************************" 
PRINT"*  *" 

PRINT"*  #" 

PRINT"*  *" 

PRINT"*  *" 

PRINT"*  *" 

PRINT"*  *" 

PRINT"*  *" 

PRINT"*  *“ 

PRINT"*  *" 

PRINT"*  *" 

PRINT"*  *" 

PRINT"*  *" 

PRINT"*  *" 

PRINT"*  *" 

PRINT"*  *" 

PRINT "**♦****************♦******************" 

pr  i  nt  "  •  1 1 1 1  ii  r  iTiTrniKBTjfeTasraasBM!**************" 

PR  I  NT  "  LTiTiTiTiTiTiTjTiTiTÉWSKATTEPROGRAM*  " 

PR  I  NT "  “MSråTSTSTSKKKIBl***#***********" 

PRINT" MMMKiTiTiTiTiTilAF  CARSTEN  ANDERSEN  1984." 
PRINT"  SKIiTiTiTiTiTiTiTiTiTiTiTiWRT  I  SAN  DATA.  " 

PR  I  NT  "  KKMMMMWiTiTiTiTiTiTiTiTiTifiTiTiTiTiTiWTAST  ft  " 

GETAt  IFAt=" "THEN23150 
REM 

PEM  ************ 

REM  »IHTROTEKST* 

REM  ************ 

REM 

PRINT'«]" 

PR  I  NT  "KMKiFLG.  FAKTORER  BøP  KENDES  INDEN  START  " 
PR I NT "y************************************ " 

PR  I  NT  "  MrT:T3TiT:TiT:T;Till .  KOMMUNESKAT  " 


KIRKESKAT” 

AMTSSKAT" 

PERSONFRADRAG" 

1. SKATTEGRAENSE <«)" 

2 . SKATTEGRAENSE ( «  > " 

3 . SKATTEGRAENSE  <« ) * 

1 .  SKATTEGRAENSE  <  KR ) " 

2. SKATTEGRAENSE (KR) " 
SAMLET  PENSIONSFONDS«" 
STATSSKATTE«" 
SKATTEPLG. INDKOMST" 

A- INDKOMST" 

BETALT  SKAT" 


PR  I  NT  "LT;T;T:T=TiTi-TJ2 . 

print  "aiWiKmæ. 

PRINT " 'iTiTiT:TjT:T:T:M . 

PRINT  "  'itiTiTiTiTiTiTifi . 

PRINT  "  LTiTiTiTiTiTiTÆ" . 

PRINT'"iTiTiT=TiT:TiT;T7. 

PRINT"  ;T:TiT:TiTiTiTiTI: . 

PRINT"ttSISTsTSKI5TÆ>. 

PRINT"tf3SW2TSTSUø. 

PRINT  "  VTiTiTiTiTiTiH  1 . 

PRINT'"StSTSVWSTSI12. 

PRINT"  ;TjTjTiTiTiTill 3 . 

PRINT"  'iTiWiTiTiTil  1 4 . 

PRINT"  *7;Ti-TiTiTiT;T:T:TiTiM;TiT;T!M4  T  AST  ft  " 

GETAt ' IFAt=" "THEN24250 
PEM 

REM  ******♦♦♦»**♦ 

REM  »INFORMATION* 

PEM  ************* 

REM 

PRINT’«]" 

PRINT"  MflWMSrørøålD ISSE  INFORMATIONER/DATA  KAN  FINDES  HOS 
PRINT"aSKOMMUNEN  OG  I  DIVERSE  SKATTETABELLER." 

PRINT”  *M(M>M?WM;TiTiTiTiT;TlTiT;TiTiTiiTiTiT;TiT;V?TASTft" 

GETAt : IFAt=""THEN2436ø 
PEM 

REM  ***************** 

REM  »PROGRAMFUNKTION* 

REM  ***************** 

REM 

PRINT'«]" 

PR  I  NT  "KÆFTER  DATA  INDTASTN  I  MG  KAN  FLG.  UDREGNES  -  ‘ 
PRINT‘«J************#************************^++" 
PRINT"KKMK1T;T;TJ1.  TRÆKPROCENT. " 

PPINT’"iTiTiTil2.  SKATTEKORTSFRADRAG. " 

PRINT"'SKKfit3.  SKAT  I  KR.  " 

PPINT"'jTi!iTiV1.  SKAT  I  «  AF  SKATPLG.  INDKOMST.  " 
PRINT"aSM?J5.  SKAT  I  «  AF  A-INDKOMST." 

ppiNT"aasræ.  restskat  i  kr.  " 

PRINT"«MSBI7.  PESTSKAT  I  «  AF  KORREKT  SKAT." 

PRINT  "  KKK(TJ;TrT;rj;T!’:’J;W;TiT7«;HT  ASTft  " 

GETAt  I F At- " " THEN25200 
RETURN 
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CIWp  2847  A 


Commodore 

Fordi  fremtiden  forlængst 
erbegyndt. 


m DENS  SOFTWARE? 


Commodore! 

Billedet  viser  bare  et  lille  udpluk  af 
programmer  til  Commodore  64,  ver 
dens  mest  populære  hjemme¬ 
computer. 

Commodore  er  faktisk  det 
computerfirma  i  verden,  der  har 
udviklet  flest  programmer  over¬ 
hovedet,  ca.  2.000  ialt  -  foreløbig! 

I  realiteten  findes  der  et 
program  til  enhver  opgave,  du  kan 
tænke  dig  -  plus  en  hel  del  andre. 
Og  der  kommer  stadig  nye  til  -  der 
står  Commodore  på  fremtidens 
si 


Verdens  sjoveste 

9SflBMHSHMfiHBHNIH09BSSfl£9B9BE9i8iS9Hii 

computer- kursus 


Alt  om 


ger.  Plus  en  masse  gode  råd  og  tips 
for  både  begynderen  og  den  mere 
erfarne  hjemmecomputer  ejer. 

Det  er  ikke  dyrt  at  være  medlem  af 
"Alt  om  Data  Klubben”.  Hvert  IN¬ 
PUT  magasin  koster  kr.  18,75,  og 
du  bestiller  4  ad  gangen  -  atså  en 
måneds  udsendelse  for  kr.  75. 
Langt  mindre  end  en  investering  i  et 
købeprogram.  Ud  over  INPUT 
kommer  "Alt  om  Data  Klubben”  lø¬ 
bende  med  spændende  konkur¬ 


rencer  og  særtilbud  til  medlemmer¬ 
ne. 

INPUT  computerkurserne  henven¬ 
der  sig  til  alle,  som  vil  lære  mere  om 
data  på  en  forhøjelig  måde.  De  vi¬ 
ste  programlistninger  passer  til  de 
fleste  computere,  -  nemlig  Com- 
modore  64,  Spectrum,  VIC-20,  ZX- 
81,  Dragon,  BBC,  Electron  og  Co- 
lour  Genie. 

Bliv  medlem  af  "Alt  om  Data  Klub¬ 
ben”.  Brug  evt.  girokortet  i  "Alt  om 
Data”  nummer  8  eller  rekvirer  et 
nyt  på  tlf.:  01-11  28  33.  Eller  send 
os  blot  75  kr.  +  navn  og  adresse. 


"Alt  om  Data  Klubben”  er  stiftet  af  må¬ 
nedsbladet  "Alt  om  Data”,  der  er  Dan¬ 
marks  største  computermagasin.  Her 
kan  du  hver  måned  finde  spændende 
artikler  fra  hele  verden,  grundige  test¬ 
rapporter  og  masser  af  programmer. 


I  samarbejde  med  Cavendish  i  Lon¬ 
don  præsenterer  "Alt  om  Data”* 
markedets  sjoveste  og  mest  farve¬ 
rige  computerkursus.  Det  består  af 
ugebladet  INPUT,  der  på  letlæst 
engelsk  giver  dig  alle  de  tips  og 
tricks,  du  har  brug  for,  når  du  arbej¬ 
der  med  de  mest  populære  hjem¬ 
medatamater. 

"Alt  om  Data  Klubben”  sender  dig 
hver  måned  fire  fortløbende  og 
trykfriske  eksemplarer  af  INPUT. 
Hver  gang  får  du  et  væld  af  usæd¬ 
vanligt  flotte  programmer  og  listnin¬ 


I.isv 


